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particular  attention  to  the  contributions  of  the  solid  phase  heterogeneity.  A 
one-dimensional  model  was  developed  which  treats  the  solid  phase  as  alternating 
layers  of  A P and  binder,  with  an  exothermic  melt  layer  at  the  surface.  Solution 
of  the  Fourier  heat  equation  in  the  solid  provides  temperature  and  heat  flux 
distr ihutions  with  space  and  time.  The  problem  is  solved  by  equating  the  heat 
flux  at  the  surface  to  that  produced  by  a suitable  model  of  the  gas  phase.  An 
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SECTION  I 


INTRODUCTION 


Experimental  data  ' ive  established  that  ammonium  perchlorate  (AP)  particle 
size  has  a significant  effect  upon  the  pressure-coupled  response  function  of 
composite  , a 1 id  propel  lasts  (1-14).  Moreover,  the  effect  cannot  be  attributed 


1.  .reen.  L.G.,  "Effects  of  Oxidizer  Concentration  and  Particle  Size  on  Resonance 
Burning  of  Compos  it  Solid  Propel  1 ants " , Jet  Prop.  28,  159-164  (Mar.,  1953). 

2.  trand,  L.  D.,  "Low  Pressure  L*  Instability  and  Extinction",  3rd  ICRPG 
Combustion  Conference  (CPIA  Publication  138,  Vol . I,  Feb.,  1967 ) pp . 195-207. 

3.  Experimental  Studvs  on  the  Oscillatory  Combustion  of  Solid  Propellants  , 
report  NWC-TP-4393,  U.S.  Naval  Weapons  Center,  China  Lake,  CA  (Mar.,  1969). 

4.  Beckstead,  M.W.,  Boggs,  T.L.  and  Madden,  O.H.,  "The  effect  of  Oxidizer 
Particle  Size  and  ' nder  Type  on  Nonacoustic  In^tabil ity",  AIAA  Paper  69-175 

(1969). 

5.  Boggs,  T.L.  and  Lee- stead,  M.U.,  "Failure  of  Existing  Theories  to  Correlate 
Experimental  Non  ct  . s L i c Combustion  Instability  Data",  J.  AIAA  8,  626-631 

(Apr.  1-970). 

6.  Crump,  J.E.,  "Combi  tion  Instability  in  a Series  of  AP-I1TPB  Smokeless 
Propellants",  Pth  NNAF  Combustion  Meeting  (CPIA  Publication  220,  Vol.  II, 
Dec. 1971)  pp.  81-90. 

7.  Crump,  J.E. , "Combustion  Instability  Studies  on  Non-metall ized  AP-HTPB 
Propellants",  9th  1NAF  Combustion  Meeting  (CPIA  Publication  231,  Vol.  Ill, 
Dec.,  1972)  pp  123-134. 

Wendel ken , C.P.,  "Combustion  Stability  Characteristics  of  Solid  Propellants", 
AFRPL-TR-73-63,  Ait  Force  Rocket  Propulsion  Laboratory,  Edwards,  CA  (Oct., 
1973). 

9.  "Aluminum  Behaviour  in  Solid  Propellant  Combustion",  AFRPL-TR-74-13 , Lockheed 
Propulsion  Company.  Redlands,  CA  (May,  1974). 

10.  Michel i,  P.L..  "Stabilization  of  Smokeless  Propellants  with  Additives", 

11th  JANNAF  Combus  m Meeting  (CPIA  Publication  261,  Vol.  Ill,  Dec.,  1974) 
pp  123-136. 

11.  Anderson,  F.A.  and  umar,  R.N.,  "Feasibility  Study  of  Propellants  and  Igniters 
for  Shuttle  Solid  Rocket  Booster  Separation  Motors",  Report  900-710,  Jet 
Propulsion  Laboratory,  Pasadena,  CA  (June,  1975). 

(See  next  page  for  remainder  of  references.) 
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simply  to  changes  in  burning  rate  or  formulation;  the  effect  appears  to  involve 
the  composite  propellant  heterogeneity  as  well  (lb).  Classical  theories  of 


combustion  driving  (16)  have  assumed  a homogeneous  propellant  and  are  therefore 
inadequate  to  fully  explain  the  combustion  instability  characteristics  of  composite 
propellants.  The  community  has  come  to  rely  upon  experimental  measurement  of  the 
combustion  response  in  T-Burners,  and  work  in  recent  years  has  been  devoted  largely 
to  improving  the  method  (17-19).  Although  experimental  measurement  serves  seve-'a , 
important  purposes,  interest  in  the  theoretical  work  has  revived  because  the 
acquisition  and  interpretation  of  full  complements  of  data  continues  to  be  exper  , 
and  does  not  furnish  a phenomenological  mechanism  for  the  guidance  of  propel lan 


Viewing  the  combustion  zone  as  the  region  between  the  thermal  wave  penetration 


12.  Cohen,  N.S.,  et  al.,  "Design  of  a Smokeless  Solid  Rocket  Motor  Emphasizin': 
Combustion  Stability',  12th  JANNAF  Combustion  Meeting  (CPIA  Publication 

2 '3,  Vol . II,  Dec.  1975]  pp~'205-220. 

13.  Horton,  M.D.  and  Rice,  D.  W.,  "The  effects  of  Compositional  Variables  Upon 
Oscillatory  Combustion  of  Solid  Rocket  Propel lants" , Combustion  and  Flame 
8,  21-28  (Mar.  1964). 

14.  "Control  of  Solids  Distribution  in  HTPB  Propellants",  Contract  F04611-76- 
C-0006 , Hercules,  Inc.,  Allegheny  Ballistics  Laboratory,  Cumberland,  MD. 

(in  progress). 

15.  Cohen,  N . S. , "Report  of  Workshop  on  Combustion  Instability  of  Smokeless 
Propellant:",  Proceedings  of  14th  JANNAF  Combustion  Meeting  (to  be  published  . 

16.  Culick,  F.E.C.,  "A  Review  of  Calculations  for  Unsteady  Burning  of  a Solid 
Propellant",  J.  AIAA  6,  2241-2254  (Dec.  1968). 

17.  "T-Burner  Testing  of  Metallized  Solid  Propellants",  AFRPL-TR-74-28  , edited 
by  F.E.C.  Culick,  Air  Force  Rocket  Propulsion  Laboratory,  Edwards,  Calif. 

(Oct.  1974). 

18.  "T-Burner  Motor  Verification  Program  Final  Report".  AFRPL-TR-74-71 , 

Aerojet  Solid  Propulsion  Company,  Sacramento,  Calif.  (Jan.  1975). 

19.  Lovine,  R.L.  and  Linior,  J.J.,  "Measurement  of  Propellant  Response  at 
High  Frequency",  13th  JANNAF  Combustion  Meet in”  (CPIA  Publication  281. 

Vol.  II,  Dec.  1976]  pp  9:j-112. 
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in  the  solid  and  the  location  of  the  flames  in  the  gas,  there  are  several  ways  in 
which  the  composite  propellant  heterogenei ty  can  manifest  itself.  Two  schools  of 
thought  have  arisen:  one  which  emphasizes  the  solid  phase,  treating  the  gas  as  a 
homogeneous  source  of  propellant  heating;  and  one  which  emphasizes  the  gas, 
continuing  to  treat  the  solid  as  a homogeneous  medium. 

The  solid  phase  proponents  may  be  represented  by  Lengelle  & Williams  (20), 
r untar  (21)  and  Cohen  (12).  Lengelle  & Williams  performed  a one-dimensional 
analysis  of  a solid  having  sinusoidal  thermal  properties.  Although  the  model  was 
too  idealized  for  direct  practical  application,  it  made  the  essential  point  that  the 
heterogeneity  augments  the  combustion  response  depending  upon  the  periodicity  of  tne 
thermal  properties  (and,  therefore,  particle  size  and  spacing).  Kumar  introduced 
a surface  melt  layer,  purportedly  representative  of  the  AP  surface,  in  an  otherwise 
homogeneous  solid.  The  most  significant  result  of  this  model  was  a mechanism  by 
wnich  zero-exponent  propellants  could  exhibit  a positive  combustion  response  and 
pres  .ore  effects'1.  in  e Kumar  did  not  treat  in-depth  hetergenei ty , particle  size 
effects  appeared  in  th<  solid  only  through  the  effect  of  burn  rate  on  melt  layer 
thickness'1.  Cohen  postulated  two  characteristic  parameters  for  the  solid  phase, 

1.  Classical  theories  produce  a response  function  proportional  to  pressure 
exponent,  yet  it  is  well  known  that  plateau  (zero  exponent)  and  mesa  (negative 
exponent)  propellants  have  exhibited  combustion  instability.  The  AP  melt 

may  be  analogous  to  the  foam  zone  of  such  propellants. 

2.  An  effect  of  burn  rate  on  melt  layer  thickness  would  also  appear  in  double- 
base propellants,  so  it  cannot  be  the  sole  basis  for  the  role  of  AP  particle 
size  in  composite  propellants.  Furthermore,  AP  size  effects  persist  at  constant 
burning  rate  when  catalysts  are  used  or  solids  loading  or  distribution  are  varied. 


20.  Williams,  F.A.,  and  Lengelle,  G.,  "Simplified  Model  for  Effect  of  Solid 
Heterogeneity  on  Oscillatory  Combustion",  Astronautica  Acta  97-118  (1968). 

21.  Kumar,  R.N.,  "Some  Considerations  in  the  Combustion  of  AP/Composite 
Propellants",  Report  under  Contract  NAS7-100,  Guggenheim  Jet  Propulsion 
Center,  California  Institute  of  Technology,  Pasadena,  Calif.  (Aug.  1972). 
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r 1 

each  dependent  upon  parti. Ic  , frequency  response, 

the  other  of  thermal  response.  Me  assumed  thdt  all  response  function  curves 
could  be  determined  by  the  pressure  exponent  plus  these  two  parameters,  arid 
used  experimental  data  for  a standard  roue'll  ant  a ralibration.  The  essential 
result  is  that  decreasing  particle  size  increases  she  peak  response  and  shiT\ 
peak  to  higher  frequency,  lie  further  assumed  that  all  multimodal  propellants 
could  be  treated  by  linear  superposition  f ’.be  r ••  si  . tuent  results,  and  pres 
mu  1 ti -peaked  response  functions.  Although  tup  method  is  not  founded  upon  a 
formal  analysis,  it  is  being  used  to  guide  propellant  tailoring  (15.22;.  Extensive 
applications  have  revealed  some  qualitative  and  quantitative  deficiencies,  for 
example,  a tendency  to  over-emphasize  the  effect  of  fine  sizes  (22). 

The  gas  phase  proponents  may  be  represented  b,  Hamann  (23),  Glick  and  Condon 
(24),  and  Beckstead  (25).  All  utilize  some  form  of  the  BDP"  model  of  steady- 
state  combustion  (26)  to  represent  the  ga:  phase  details,  and  none  consider  4 1 . 
solid  to  be  heterogeneous  Hamam.  pec  a aed  a ■ •_  .urcation  analysis  upon  .• 
entire  BDP  model,  but  did  not  epo- t any  results.  : i-cksteaa  used  the  BDP  i ide1 
to  calculate  values  for  the  parameters  which  are  c;M  ed  for  by  the  homogeneous 
theory  of  Denison  5 Baum  {21  'vc  .op-  of  combining  unrelated  models  v 

22.  Glick,  R.L.,  Private  Communications,  th  i orp.,  Huntsville,  Ala.  ii0_ 

23.  Hamann,  R.J.,  "Three  Solid  Propellant  Combustion  Models,  A Comparison  an;. 

Some  Application  to  Non-Steady  Cases",  Memo.  M-2I5,  Delft  University  r* 

Technology,  Delft,  Netherlands  (Apr.  1974). 

24.  Condon,  J.  A.,  Osborn,  J.R.  and  Glick,  R.L.,  "Statistical  Analysis  of 
disperse,  Heterogeneious  Propellant  Combustion;  Nonsteady-state".  17  • 
Combustion_Meeting  (CPIA  Pub.  281,  Vol  II  Dec.  1976)  pp  209-2zo. 

25.  Beckstead,  M.  W.,  "Combustion  Calculations  for  Composite  Solid  Propellants’, 
ibid.,  299-312. 

26.  Beckstead,  M.W.,  Derr,  R.L.  and  Price,  C.F.,  "Model  of  Solid  Propellant 
Combustion  Based  on  Multiple  Flames",  J.  A1AA  8,  2200-2207  (Dec.  1970). 

(See  next  page  for  remainder  of  references.) 
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open  to  question  (15),  and  a review  of  the  technique  reveals  several  deficiencies". 
Click  and  Condon  employed  a similar  approach,  but  used  a modified  BDP  model  (28) 
for  polydisperse  particle  size  distributions  and  the  method  of  Zeldovich  and 
Novozhilov  (29)  as  an  alternative  to  the  theory  of  Denison  & Baum.  Comparison  of 
results  with  experimental  data  was  disappointing.  Considerable  improvement  was 
noted,  however,  when  the  Cohen  postulates  were  incorporated  into  the  method  to 
position  the  peak  response  and  peak  response  frequency  (24). 

The  following  concensus  appears  to  emerge  from  this  background.  First,  there 
is  a need  to  account  for  the  melt  layer  and  the  in-depth  solid  phase  heterogeneity 
of  composite  propellants.  Second,  there  is  a need  to  provide  an  analytical  basis 
to  test,  confirm  or  modify  the  Cohen  postulates.  Third,  the  representation  of  the 
gas  phase  also  should  address  the  heterogeneity  of  composite  propellants  by 
embodying  some  form  of  the  BDP  model  rather  than  the  homogeneity  of  the  classical 
theories.  Accordingly,  it  was  the  objective  of  this  program  to  develop  an 
analytical  model  of  the  comustion  response  of  composite  solid  propellants  with 
particular  attention  to  these  contributions  of  the  propellant  heterogeneity. 

Primary  emphasis  was  placed  on  the  modeling  of  heterogeneity  in  the  solid  phase. 

For  example,  calculation  of  the  "A"  and  "B"  parameters  of  the  homogeneous  theory 
by  this  method  reveals  much  too  small  a pressure  effect  to  account  for  measured 
changes  in  the  response  function  curve  with  pressure.  As  with  Kumar,  particle 
size  effects  appear  only  through  changes  in  steady-state  burning  rate  properties. 

27.  Denison,  M.  R.  and  Baum,  E.,  "A  Simplified  Model  of  Unstable  Burninq  in  Solid 
Propellants",  J.  ARS  31,  1112-1122  (Aug.  1961). 

28.  Click,  R.L.  and  Condon,  J . A. , "Statistical  Analysis  of  Polydisperse,  Hetero- 
geneous Propellant  Combustion:  Steady-State" , 13th  JANNAF  Combustion  Meeting, 
(CPI A Pub.  281,  Vol . II,  Dec.  1976)  pp  313-345'” 

29.  Novozhi 1 ov , B.  V..  "Nonstationary  Combustion  of  Solid  Rocket  Fuels",  Nauka, 
Moscow  (1973). 
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SECTION1  2 


- MODEL  PREMISES  AND  ASSUMPTIONS 

2.1  REPRESENTATION  OF  THE  SOLID  PHASE 

The  solid  phase  is  represented  by  a "sideways  sandwich",  following  the  concep' 
of  Lengelle  & Williams,  as  shown  in  Figure  1.  This  picture,  really,  does  nothing 
more  than  state  that  the  analysis  is  one-dimensional,  so  its  dissimilarity  to  2.-. 
propellants  is  of  no  greater  concern  than  is  the  use  of  a one-dimensional  treat- 
ment. Such  a treatment  assumes  that  the  lateral  processes  are  negligible  jr 
.ongv;  an  to  tne  normal  processes.  The  solid  is  considered  to  be  semi -i nf ini te . 
having  alter!  ping  layers  of  AP  and  binder.  The  thickness  of  the  AP  1a>ers  is 
nominally  equal  to  the  particle  size,  with  exceptions  to  be  noted  later.  The 
thickness  of  the  binder  layers  is  equal  to  the  interstitial  spacing  as  determined 
from  the  statistical  geometry  (26,  30).  The  surface  AP  layer  contains  a thin 
melt  layer,  which  is  justified  experimentally  (31-33).  and  follows  the  model  ot 
Kumar  as  a region  of  decomposition  reactions  in  accordance  with  an  Arrhen  ... 
law.  The  melt  layer  is  "thin"  in  that  the  melting  point  of  AP  approximates  the 
surface  temperature  during  deflagration  (32.  33).  Tlv  analysis  is  linearized  *‘or 
small  harmonic  pressure  perturbations , and  is  concerned  with  pressure-couplin'  n 

30.  Cohen, N.S.,  Price,  C.F.  and  Strand  L.D.,  Analytical  Model  of  the  C 
of  Multicomponent  Solid  Propellants",  AIAA  Paper  77-927,  AIAA/SAE  lot: 
Propulsion  Conference  (July,  1977). 

31.  Boggs,  T.L.,  "The  Decomposition,  Pyrolysis  and  Deflagration  cf  Am 'or  ; . 
Perchlorate",  et  seq.,  7th  JANNAF  Combustion  Conference  (CPIA  Publica" 

204,  Vol . I,  1971)  pp  1 i 3 - 1 38 . 

32.  Guirao,  C.  and  Williams,  F.A.,  "A  Model  for  Ammonium  Perchlorate  Defl-m. 

Between  20  and  100  atm",  J.  AIAA  9,  1345-1356  (July  1971). 

33.  Beckstead,  M.W.  and  Hightower,  J.D.  "Surface  Temperature  of  Deflagrat’ ng 
Ammonium  Perchlorate  Crystals",  J.  AIAA  5,  1785-1790  (Oct.  1967). 
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Although  the  model  contains  the  convective  heating  term  to  represent  the 
regression  of  the  material  at  the  mean  rate  r,  the  geometry  of  the  layers  is 


taken  to  be  fixed  with  the  AP  layer  always  at  the  surface.  This  assumption 
is  similar  to  the  statistical ly  fixed  geometry  used  in  the  BDP  model.  One 
consequence  of  this  assumption  is  that  the  "pulsation”  mechanism  associated 
with  the  sequential  burn  through  of  individual  crystals  and  binder  layers  is 
excluded.  The  existence  of  a "pulsation"  mechanism,  coherent  over  microscopic 
regions  of  propellant  surface,  is  open  to  question,  although  Lengelle  & Williams 
(20)  offer  an  argument  in  its  favor.  Thus,  the  present  model  examines  only 
the  effect  of  heterogeneity  in  relation  to  the  thermal  wave  propagation  through 
the  solid  propellant.  A consequence  of  this  assumption  is  that  in-depth 
heterogeneity  will  not  be  important  in  those  cases  where  the  particle  size  is 
larger  than  the  thermal  wave  (generally,  coarse  particles  and  high  burn  rate). 
Whether  or  not  this  consequence  is  unduly  restrictive  remains  to  be  seen,  but 
the  fact  that  catalyzed  coarse  propellants  are  more  stable  than  fine  propellants 
would  seem  to  permit  it.  The  statistically  fixed  geometry  requires  the  surface 
AP  layer  (including  the  melt)  to  have  a thickness V 2/3  of  the  particle  size  (26). 

2.2  REPRESENTATION  Or  THE  GAS  PHASE 

The  function  of  the  gas  phase  in  the  analytical  scheme  is  to  transform 
the  oscillating  pressure  into  an  oscillating  heat  flux  boundary  condition  at  the 
surface  of  the  AP  melt.  An  approximate  form  of  the  BDP  model  has  been  selected 
to  represent  the  gas  phase,  and  the  gas  phase  is  assumed  to  be  quasi-steady 
(viz,  the  gas  phase  responds  instantly  to  changes  in  pressure).  The  approxi- 
mation assumes  a single  flame  above  the  propellant  surface,  where  all  gas  phase 
reactions  occur,  as  illustrated  by  Figure  1. 
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Presuming  that  t tie  condensed  phase  heterogeneity  has  the  dominant  effect 
upon  the  response  function  of  composite  propellants,  it  would  not  seem  to  matter 
what  particular  model  were  chosen  to  represent  the  gas  so  long  as  it  provides  a 
reasonable  boundary  condition.  Thus,  the  Denison  & Baum  model  could  have  been 
chosen  to  preserve  some  systematic  order  to  the  analytical  development.  This 
was  not  done  for  two  reasons:  First,  it  would  have  presumptously  ignored 
those  developments  addressing  the  gas  phase  heterogeneity  in  a BDP  model  frame- 
work. Second,  the  fact  that  the  Denison  & Baum  model  is  heavily  dependent  upon 
fluctuations  in  flame  temperature  is  coming  to  be  viewed  as  a serious  deficiency 
of  that  model.  Variations  in  flame  temperature  are  fourth  order  in  magnitude 
with  respect  to  variations  in  pressure.  On  the  other  hand,  variations  in  flame 
standoff,  which  are  not  addressed  by  Denison  & Baum  but  which  are  a significant 
aspect  of  the  BDP  model  (and  a key  to  the  particle  size  effects  in  the  gas  phase), 
are  first  order  of  magnitude  with  respect  to  pressure  variations. 

The  approach,  then,  is  a perturbation  of  an  approximate  form  of  the  BDP 
model  with  respect  to  flame  standoff  as  well  as  flame  temperature.  Perturbation 
of  the  model  itself  is  considered  to  be  proper,  whereas  use  of  the  model  to 
calculate  parameters  for  substitution  into  a different  model  is  open  to  question. 
With  the  approximate  model,  the  task  is  much  simpler  than  that  undertaken  by 
Hamann  (23). 

2.3  REPRESENTATION  OF  MULTIMODAL  PROPELLANTS 

Multimodal  propellants  are  represented  by  adjacent  columns  of  layers,  as 
shown  by  Figure  2.  Each  particle  size,  corrected  by  the  factor  ¥2/3,  tops  a 
column.  The  remaining  AP  layers  consist  of  the  finest  size  in  the  distribution. 
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. i y c r d Modi'  1 of  the  lid  Phase  for  Tii:nodil  Propellant: 

lizes  ) , D.  , D . Sb  > led  Layers  are  Binder  fhc  Ti  p of  t 
2 3 

: a AP  Lay  ' 1.  1 ' in  Melt 


This  assumption  is  justified  by  the  fact  that  the  finest  size  will  fill  the 
smallest  interstices  between  coarser  particles,  and  will  be  valid  so  long  as 
the  thermal  wave  does  not  penetrate  to  a subsequent  coarse  sublayer.  Validity 
is  likely  in  practical  propellants  because  of  the  influence  of  the  fine  size 
in  raising  the  burning  rate  and  decreasing  the  thermal  wave  penetration.  The 
binder  layers  are  ail  of  the  same  thickness,  as  computed  by  the  method  of  Ref. 

(JO).  All  of  the  columns  are  constrained  to  the  same  mean  burning  rate,  which 
implies  one  effective  flame  height  or  characteristic  size  for  the  diffusion 
flame.  However,  the  columns  are  allowed  to  have  different  response  functions 
and  the  aggregate  value  for  the  propellant  is  a weighted  average  from  the 
constituent  columns. 

2.4  APPROACH 

The  analysis  is  performed  in  two  parts.  First,  the  model  is  derived  in 
its  steady-state  version.  The  steady-state  version  serves  to  calculate  mean 
values  required  for  the  time-dependent  model,  verify  that  the  boundary  conditions 
will  be  reasonably  accurate  as  measued  by  the  ability  to  reproduce  experimental 
(or  formal  BDP)  results,  establish  the  zero-frequency  (no  oscillation)  limit, 
verify  some  of  the  model  assumptions,  and  provide  an  initial  check  on  the 
method  of  solving  for  the  temperature  profile  in  the  solid.  The  steady-state 
model  is  one  of  the  subroutines  of  the  computerized  response  function  model. 
Secondly,  the  time-dependent  model  for  the  combustion  response  function  is 
derived.  In  calculating  the  response  function,  experimental  values  of  mean 
burning  rate  are  used  as  input  in  order  to  minimize  the  effects  of  uncertainties 
in  the  steady-state  modeling.  The  steady-state  model  is  then  limited  to  calculation 
of  other  steady-state  quantities  (e.g.,  surface  temperature  and  flame  height). 
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SECTION  3 


THE  STEADY -STATE  MODEL 


i.l  SOLID  PHASE  EQUATIONS 

The  heat  conduction  equation  in  the  melt  layer  is  written  as: 


.2j 

ka  + paCar 

a dx^  3 d 


37  * VaV  «d(-E/P.T) 


where  k = 
r = 
c = 

w = 

Q = 

subscript  a = 
A = 
E = 
R = 
r = 
T = 
x = 

Tiie  boundary  conditions  are 


thermal  conductivity 
densi ty 
heat  capacity 
weight  fraction 
heat  of  decomDosi tion 
denotes  AP 
kinetics  orefactor 
activation  energy 
gas  constant 
burning  rate 
temperature 

distance  into  the  solid 


x = 0,  -k 


dj 
a dx 


c r(T 
s s w 


- T ) + 
o 


“ansr 


* V 


x,-k  7-  = p c r (T  - T ) + W p rQ 
m a dx  s s m 0 asm 


where  subscript  w 
subscript  s 
subscript  m 
subscript  0 


= denotes 
= denotes 
= denotes 
= denotes 


wall  or  surface 
mean  propellant 
melt 

the  deep  solid 


(2? 
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L'quation  (1)  may  be  written  in  dimensionless  fonn  as  follows: 


i • dy  = B exP 


T -T 
w o 


( t-1 ) + 1 


where  , (T-T  )/T  -T  ) 

0 W 0 


thermal  diffusivity  of  the  medium,  < for  Ea.  (3) 

K,  r a 

B --  A 4 H,  ^ 
r2  3 ca 

H - - W(L 

H ' c Tt  -t  1 

s w o 


■ o the  thin  melt  >. -n  . 1 , so  Eg.  (3)  may  be  approximated  as: 


li  , * ‘j  - C exp  [-D(I-t)] 


where  C - B e*p(-E/RTw) 


o (T  -Tj 

2 w o 


The  boundary  condition1  become: 


surface:  y 0,  , = -7  (1+H,  + H ) 

dy  a ' a nr 


mel t/crysta 1 : 


y " V d:  = -Z  (r  + H ) 
dy  a m m 


i'scs 

where  Z = 

3 paca 


Making  the  following  transformation: 


n = D ( 1 - t ) 
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(7) 


Eq.  (4)  becomes: 


(■'-Wn/D)  = y exn  (-n) 


Recognizing  n/Q  <<1  where  t 1,  and  letting  K = Eq.  (8)  becomes 


• h + dn  = K Gxp('n) 


Eqs . (5a  & b)  become: 


„=0,  »l-Za(HHa  * Hm) 


n-n 


,'=r  = r - Z (t+H) 

m m m a m nr 


Eq.  (4)  may  be  integrated  in  closed  form.  Aoplying  Eqs. (10)  and  some  a 
yields  an  expression  for  burning  rate  in  the  following  form: 

a 4--  ij-  i 

K = 


dj- 


1 - exp  (-nm) 

Making  ail  substitutions,  burning  rate  is  expressed  as  a function  of  wa 
temperature  and  other  constants  as  follows: 

2 


2 k AW  Q RT  ‘ 
a a a w 


.2-  CaTTw^To) E Ow-ToT  6X0 ( ' RTw  ] 

S W 0 ! 


* WO, 


' {(V^H1-Z=’  - Za  Efft=I3  - 1 


This  relation  is  to  be  matched  with  a relation  between  burn  rate  and  v..  , . 
temoerature  from  the  gas  phase  model. 

Analysis  of  the  steady-state  problem  and,  as  will  appear  later,  solution  :f 
the  time-dependent  problem,  also  require  a descriDtion  of  the  steady-state 
temperature  profile  in  the  solid.  The  temperature  orofile  in  the  melt  layer  is 
determined  from  Eq.  (g).  Integration  and  aoplication  of  Eq.(ioa)  yields: 

- = 1 * Vl  + 2[K  exp(-n)-CM] 
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n< 


(101 


f 1 ? \ 


(13) 


1 


where  C„  = K-J  [ 1 -Zfl ( 1+H^Hj ]?  + 1 -Z( 


The  physics  of  the  temperature  decay  requires  the  negative  root.  Substituting 
the  definitions  for  and  r yields: 


+ D^l+2fK  exp(-n)-CM] 


An  order  of  magnitude  analysis  shows  that  the  square  root  term  will  always 
be  much  larger  than  r in  the  melt  layer.  Thus,  Eq.  (14)  reduces  to  the  form: 


J a +b  exD(-n) 


where  a = 1-2C. 


b = 2K 


= Ddy 


This  equation  can  e integrated  in  closed  form  for  y(n);  it  is  transcendental 


as  n T n(y) . 


-1  , 

y = 1 n 

D^a 


1+2  -yz  + 2z 
1+d  " Jd2+ 2d 


where  d = 2a /b 

z =d  exp(n) 

The  melt  layer  thickness  may  be  calculated  by  evaluating  Eq.  (16)  at  n=nm- 

For  all  layers  beneath  the  melt  layer,  the  right-hand-side  of  Eq.  (3)  vanishes. 
The  gradient  condition  it  the  top  of  each  layer  is  similar  to  Eq.  (5b),  without  the 


heat  of  fusion. 


— L.  - 7 

yTop'  dy  ” * Top 


where  1-1  when  entering  an  AP  layer 

Z = Zh  when  entering  a binder  layer 
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Thus  the  temperatures  in  each  layer  beneath  the  melt  layer  follow  the  recu'-rin 
form: 


T 1 Top  ' 1 tTop  Cl-exD(-Ay)] 
where  Ay  = thickness  of  the  particular  layer,  and  uses 
the  appropriate  r. 

For  a homogeneous  prooellant,  Z=l,  so  Eq . (18)  properly  reduces  to  the  result  for 
a homogeneous  propellant.  Note  also  that  the  temperature  and  the  gradient  will 
properly  tend  to  zero  together,  as  y approaches  infinity. 

3.2  GAS  PHASE  EQUATIONS 

i:  it  is  assumed  that  all  reactions  occur  at  the  flarre  height,  the  heat 
induction  equation  has  the  form  of  Eq.  (1)  with  a zero  riqht-hand-side.  Taking 
the  flame  to  be  at  x=0  and  the  wall  at  the  flame  height  (x=x*),  the  temoerature 
distribution  is: 


T = T , 


f T t 1 1-_exP(-T_) 
f 'wh-expf-r*) 


where  c = ux/<„ 

u = gas  velocity  normal  to  the  surface 
subscript  g = denotes  gas 
subscript  f = denotes  flame 


For  convenience,  r is  set  equal  to  y by  employing  the  continuity  relate' 
ir  r , and  assuminq  that  the  ratio  of  heat  capacity  to  thermal  conductiv; 

y 5 

is  equal  for  gas  and  soil’d^.  Then  the  oradient  at  the  wall  may  be  wri,”'pn.  f^o" 
differentiation  of  Eq.  (16),  as: 


y=y* 


% ' - (TrTw> 


exp( -y*) 
1-expC-y*) 


where  y*-  — 

Ks 


•20 


4 This  assumption  is  comparable  to  the  general  assumption  that  these  properties 
are  temperature-insensitive.  The  conductivities  of  propellant  gases  may  be 
calculated,  but  are  not  well-known. 
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A ' the  same  time,  the  iradient  at  the  wall  must  satisfy  the  energy  requirements 

.1*  the  londensed  ohase: 


, e r(T  -T  )+W  e r (Q  +Q  ) +W,p  rQ, 
w o as  vya  in'  b^s  b 


where  subscript  b = denotes  binder. 

’ , when  compared  to  Eq.  (2a),  states  that  the  binder  heat  of  decom- 
’ t 1 1 in  i * • i ny  nositi  ned  on  the  qas  side  of  the  wall.  The  binder  does  not 
i.  .-ear  at  the  surface  in  the  model  of  Fiq.  1,  but  does  in  reality  exist  over 
: i • r t i or  - of  the  surface.  The  model  surface  is  the  AP  melt.  Therefore,  in  the 
framewori  of  this  model,  the  decomposinq  binder  is  external  to  the  melt  layer 
so  may  be  represented  by  a heat  absorption  on  the  qas  side.  Eq.  (21)  may  be 


re-written  as: 


V* , - 0“  = (T  -T  ) + F 
dy  ' w o 


w ere  F = (H  +H  +H,  )(T  -T  ) 
'a  m b w o 


Equating  Eq.  ( 20 ) and  l . (??)  yields: 

Tw  = (Tf  + F - Tq)  exp  ( -y* ) - (F-TQ) 

which  is  the  required  matching  relation  in  burn  rate  and  wall  temperature. 

The  remaining  unknown,  x* , is  determined  by  an  approximate  fit  of  the 
effective  flame  heiqht  -rom  the  BDP  model: 


x*  = Cc  — ! 
F P 


where  = parti 


tide  size 


p = pressure 

Cp  - 24.6  for  r in  cm/sec,  p in  atmospheres, 
in  microns  and  x*  in  microns. 


L 


This  form  does  not  take  into  consideration  the  relative  imnortance  of  the  com- 
ponents of  the  BDP  multiple  flame  structure  and  their  differing  deoendericies 
upon  the  parameters  of  Eq.  ( 2 1 ) - However,  it  is  a reasonable  representation 
selected  for  mathematical  convenience  and  with  the  perturbation  analysis  in  mind. 

After  substitution  of  Eq.  (21)  into  Eq.  (18),  Eqs . (12)  and  ' 20 ) are  two 
equations  for  the  unknowns  r and  T . These  equations  are  solved  by  iteration. 

Once  r and  I are  known,  it  is  possible  to  calculate  the  melt  layer  thickness 
w 

and  the  thermal  profile  in  the  solid. 

The  steady-state  model  is  not  intended  to  be  used  to  calculate  burning  rates 
cor  multimodal  propellants.  That  would  require  some  definition  of  an  effective 
^article  size  or  flame  height  for  use  of  Eq.  (4  ).  Rather,  experimental  values 
of  burnino  rate  are  used  to  determine  the  wall  temperature  from  the  solid  nhase 
model,  whence  the  effective  flame  height  and  particle  size  may  be  determined  from 
the  gas  phase  model.  This  is  the  general  method  for  determining  the  mean  values 
for  use  in  the  response  function  model.  An  option  is  provided  to  predict  these 
values  for  unimodal  propellants,  but  is  used  in  this  work  only  to  validate 
pects  of  the  modeling.  Those  results  are  discussed  in  Section  5. 

Note  that  the  effects  of  particle  size  appear  only  as  gas  phase  effects  in 
the  steady-state  model.  This  conforms  with  a generally-accepted  view  of  steady- 
state  combustion  (34).  Although  Eq.  (12)  (from  the  solid  phase)  may  influence 
the  magnitude  of  the  particle  size  effect,  particle  size  does  not  appear  in  that 
equation.  The  thermal  profile  in  the  solid  does  not  enter  into  the  calculatic 
for  mean  burning  rate.  However,  this  does  not  preclude  the  importance  of  solid 
phase  effects  in  determining  the  role  of  particle  size  in  the  time-dependent 
model  for  the  response  function. 

34.  Derr,  R.L.,  "Review  of  Workshop  on  Steady  State  Combustion  Modeling  of 

Composite  Solid  Propellants",  7th  JANNAF  Combustion  Meeting  ( CP  I A Publication 
204,  Vol . I,  1971)  pp  1-3. 
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SECTION  4 


THE  TIME-DEPENDENT  MODEL:  CALCULATION  OF  THE  RESPONSE  FUNCTION 

4.1  SOLID  PHASE  EQUATION 

H'.incj  dimensionle  quantities  as  previously  defined,  the  time-dependent 
heat  conduction  equation  n the  thin  melt  layer  is  written  as: 

+ - K4  V C exp[-D(  1 -t) ] («) 

) y - H ' t 

[ ■ js  the  time-dependent  form  of  Eq.  (4).  Denotino  mean  values  as 

bar'ed  and  perturbed  vah  'S  as  primed,  and  employino  Eq.  (4)  to  describe  the  mean 
portion,  Eq.  (PS)  may  he  written  as: 

+ T _ - c exp  (r)  [exp(Dx')-l]  (26) 

where  = frequency  of  oscillations 

. = _2 
r 


For  harmonic  pertur;  itions,  1 r exp(i.t),  the  time-dependent  term  of 
rq.  (26)  may  be  re-writt  n to  provide  an  ordinary  differential  equation: 


,i 


=r  exp(-ii)  [exp(Dr ' )-l  ] 


(27) 


If  ' is  of  second  rder  of  maqnitude  and  sufficiently  small,  Eq.  (27) 

may  be  approximated  as: 

,2., 


dv 


'L  + CD i ' exp(-n) 


(PR) 
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The  problem  is  linearized  to  small  perturbations , and  is  therefore  restrict- 
to  linear  instability.  Variations  in  burning  rate  are  of  the  order  of  variations 
in  pressure,  but  variations  in  surface  temperature  are  second  or  third  order  with 
respect  to  variations  in  burnina  rate.  Thus,  for  second-order  pressure  pertur- 
bations, t'  is  at  most  of  third  order.  The  exponential  in  n is  approximately 

2 

unity  in  the  melt  layer,  and  the  product  CD  is  of  the  order  10  . This  would 
.term  i t frequencies  as  high  as  lOKHz  to  satisfy  the  approximation  for  cases  of 
nferest.  Since  the  quasi-steady  assumption  for  the  gas-phase  model  will  also 
-’estrict  the  frequencies  to  values  less  than  lOKHz,  use  of  Eq.  (28)  is  con  ist  • ' 
in  that  assumption. 

In  applying  the  boundary  conditions  at  the  surface,  one  must  recoqnize  that 
the  surface  is  fluctuating  relative  to  the  mean  surface  (y=0)  position,  sir  tne 
fluctuating  burning  rate  will  also  be  of  the  form, exp(iwt),  in  the  linearized 
problem,  it  follows  that  the  surface  position  is  given  by: 


i r ' 


The  boundary  conditions  are: 


drj 

dy 


Z (g1 
a w 


where  g^  = the  gradient  in  r'  at  the  surface,  on 

the  neaative  (qas)  side  of  the  boundary. 

Eg.  OOh)  is  derived  by  substituting  Eq.  (2a)  into  Eq.  (21),  and  perturb' no 
in  the  non-dimensional  form.  For  small  perturbations,  the  quantities  at  the 
actual  surface  may  be  related  to  the  quantities  at  the  mean  surface  as: 
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y = y 


S’ 


• — .• 


i r ' 


dy  q' -y=0 


1 1 y =0  - Q - g y=0 


j ri  djj 

Q - dy  n 
r J y=0 


f'  31a ) 


nih) 


where  g = the  gradient  in  t 

Eq.  (2P)  is  integrated  numerically.  The  functions  exp(-n)  and  g are  available 
in  terms  of  y from  Eq.  (16).  The  integration  nrovides  the  mean  surface  values, 
which  are  then  converted  to  the  actual  surface  values  by  means  of  Eqs.  (31).  The 
actual  surface  values  must  satisfy  Eqs.  (30);  g^  is  determined  from  the  gas  phase 
model,  and  is  related  to  r'  by  perturbino  Eq . (12).  The  perturbation  of  Eq.  (12) 
yields : 


= V 

b w 


where  V5  - (1*  ?)»:  * ” 


■ E/(RTw> 

■ h„-T0)/iw 


Although  the  solution  appears  to  require  iteration,  it  will  be  shown  sub- 
sequently that  it  does  not  (cf.  Subsection  4.3). 

For  all  layers  beneath  the  melt  layer,  the  right-hand-side  of  Eq.  (27) 
vanishes  so  the  time-derivative  term  cannot  be  neglected.  Thus: 


(32) 


a m 


dV  + dr'  _ 
dy2  d* 


= 0 


(37) 
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The  boundary  conditions  at  each  interface  are  generally: 


y=y 


Too, 


Tod 


dx‘ 

dy 


d_,_b 

"b,a 


Z ' 9 Tod 


O **  u 


where  the  first  Z subscript  is  used  when  entering  an  AP  layer  and  the  second 
is  used  when  entering  a binder  layer.  Assuming  that  the  product  pc  for  the 
melt  is  equal  to  that  for  the  solid  AP,  the  ratio  of  Z does  not  appear  fcr 
that  first  layer  of  solid  AP  which  joins  the  melt.  The  g ' jQp  refers  to  that 
value  of  the  perturbed  gradient  on  the  neqative  (uDper)  side  of  the  boundary, 
which  drives  the  behavior  below.  The  T'^op,  however,  is  Dreserved  on  the 
positive  side.  Eq.  (34b)  is  similar  in  form  to  Eq.  (30b),  but  there  is  no  pnase 
change  heat  beneath  the  melt  layer  and  the  sublayers  do  not  oscillate  relative 
to  the  mean  surface.  Eq.  (33)  may  be  integrated  to  produce  the  follow’nn 
recurring  formulas: 

Z. 


V'tod 


T ' =T  Top  exp(  Y'y) 


AjJL-  q 1 
z,  qToo 
b ,a 


V'i 


f exp(^Ay)-exn(^ 


J 


dr  * 


h T1 


dy“  = X1  T'Tonexp( '1  V)  - 


Top 


a ,J> 

7 ‘ 

"b  ,a 


Top 


Top 


' 2”  'l 


[\-exp(  0. y , ■ 


where  >,  = - - p-  \Jl  +4i o 


= 

C 


hi 


\ V1+4i;-" 


Each  layer  uses  the  appropriate  ratio  of  Z,  and  the  appropriate  > for  y, 

and  ' 2 ■ 
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Eqs.  (38)  and  (36)  properly  reduce  to  the  results  for  a homogeneous  solid 


(7  = 1,  and  the  difference  between  g'  and  x.r'  vanishes  throughout,  leavi ng  only 
the  first  term  on  the  riqht-hand-side) . However,  these  equations  retain  the 
growing  exponential  term  (in  of  positive  real  part)  for  the  layered  solid 
because  the  formulation  of  the  Droblem  does  not  explicitly  impose  the  boundary 
condition  at  infinity  upon  each  layer.  This  condition  is  the  requirement 
that  ' and  d>'/dy  vanish  together.  For  the  homogeneous  solid,  this  condition 
would  immediately  set  the  exponential  in  edual  to  zero.  For  the  layered 
solid,  it  can  only  be  said  that  a layer  will  eventually  be  reached  where  this 
condition  may  be  approximated  for  all  Dractical  purposes.  Since  the  effect  of 
the  heterogeneity  on  the  perturbations  also  disappears  when  the  perturbations 
disappear,  this  approximate  condition  may  be  expressed  in  the  form  of  the 
homogeneous  solid: 


(37) 


In  other  words,  there  is  a depth  below  which  the  propellant  can  be  treated  as 
homogeneous  for  purposes  of  the  perturbation  problem.  Consider  that  this  occurs 
below  the  N-—  AP  layer.  Then  Eq.  (37)  may  be  expressed  as: 


y=yr, 


(38a) 


di' 

dv 


lc 


(38b) 


where  > = an  extremely  small  number 

>-js  = value  of  X]  using  for  the  homogeneous  region. 
Eq.  (38b)  represents  the  perturbed  gradient  at  the  top  of  the  homogeneous 
region,  on  the  positive  (homogeneous)  side  of  the  boundary  with  the  N-^-  AP  layer. 
This  may  be  converted  to  the  perturbed  gradient  on  the  negative  (AP)  side  of  the 


! 


j 
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r" 


boundary  through  use  of  Eq.  (34b),  recognizing  that  Z=1  in  the  homogeneous 
region.  Thus,  Egs . (38)  become: 


y “ yN’  'TopN  = " 


g;  = Z x,  e 
^TopN  a is 


th 


where  subscript  TopN 


denotes  the  bottom  of  the  N--  AP 


layer,  which  would  be  the  "top" 
condition  for  the  succeeding  homo’eneous 
region  were  the  calculation  to  continue. 

Thus,  the  problem  of  the  solid  phase  is  now  properly  closed.  Eos.  (30) 
define  the  conditions  at  the  "top",  and  Eqs.  (39)  define  the  conditions  at 
the  "bottom".  The  conditions  at  the  bottom  are  now  known,  but  the  conditions 
at  the  top  depend  upon  the  gas  phase.  Additional  discussion  with  resoect  to  the 
solution  for  the  solid  phase  is  deferred  to  Subsection  4.3. 


4.2  GAS  PHASE  EQUATIONS 

The  perturbed  form  of  Eq.  (24)  is  simply: 


— ★ 

X 


r_ 

r 


Since  the  analysis  will  take  into  account  flame  temperature  perturbations, 
a relation  between  the  flame  temperature  perturbations  and  the  wall  temperature 
perturbations  is  required.  This  is  obtained  by  perturbation  of  Eq . (23). 

Using  dimensionless  quantities  as  previously  defined,  Eq.  (40)  for  the  flame 
standoff  perturbations , and  linearizing  the  exponential  in  perturbed  quantities, 
there  results: 

r‘  = t'  exp(y* ) - (l+ir)y*exp(y*)[7-  - 2 ^-  ] 

'*  r\  v> 


( 39a 


(?9k 


(41) 
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where 


T -T 
w o 


The  perturbed  gradient  on  the  gas  side  of  the  wall  is  derived  from  an 
energy  balance.  The  energy  being  transmitted  into  the  solid  is  the  difference 
between  the  heat  release  in  the  qas  and  the  energy  required  to  raise  the  qas 
from  the  wall  temperature  to  the  flame  temperature; 


-k,  a - -"srQf  - cg(VTw> 


where  = heat  release  in  the  gas  (negative  for  an  exotherm). 


Using  the  same  relation  between  gas  and  solid  thermal  properties  as  led 
to  Eg.  (20),  Eg.  142)  may  be  written  in  dimensionless  form  as  follows: 


gw  Mf  ♦ (7f-l) 


where  q = gradient  in  7 at  the  wall  on  the  negative  (oas)  side 
w “ 


c (T  -T  ) 
g w o 


The  perturbed  dimensionless  form  of  Eg.  (4?)  is: 


qw  - tHf  + 1)] + (y  - y) 


may  be  eliminated  by  combining  the  relations  in  Eqs.  (43),  (5a)  and  (21)  . 


5 For  this  purpose.  Eg.  (21)  may  be  written  as:  dr/dy  = Z(o  + H.  ).  This 
is  the  steady-state  analog  of  Eq.  (30b),  and  comes  from  substituting 
Eq.  (2a)  into  Eq.  (21)  in  dimensionless  form. 


Hf  = -(tp-1 ) - ( 1 + tp  ) 


Substitution  into  Eq.(44)  yields: 


- I-  (l+T  > * (Tf'-,„') 


Substitution  of  Eq.  (41)  into  Eq.  (46)  vields,  after  combining  terms: 


qv;  = — (l+Tp)(2.y*exD(y*)-l)  + t 1 (exn(y*)-l)  - |^(l+Tp)y*exp(y*) 
r P 


(47/ 


Eq.  (47)  is  the  necessary  matching  relation  for  Eq.  130b).  Thus,  tne 
formulation  of  the  time-dependent  problem  is  complete. 

Eq.  (45)  also  may  be  substituted  into  Eq.  (43)  to  yield: 

gw  = -(1+tf)  (*'■ 

Eg  (48)  is  the  dimensionless  form  of  Eq.  [22),  so  consistency  is  vet  'tip 
in  this  respect. 

4.3  SOLUTION  FOR  THE  RESPONSE  FUNCTION 

By  combination  of  Eqs.  ( 30b) , (31a),  (31b),  ( 32)  and  (47),  it  is  possible 
to  derive  art  explicit  expression  for  the  response  function  in  terms  of  solid 
phase  constants,  gas  phase  constants  and  one  key  parameter  characteristic  of 
the  solution  for  the  solid  phase.  This  key  parameter  is  the  ratio  of  the 
perturbed  gradient  to  the  perturbed  temperature  at  the  mean  surface: 

K I k2 

'y=o 
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The  components  of  this  ratio  appear  individually  in  Eqs . (31),  and  the 
ratio  is  defined  here  as  K9.  In  the  classical  homogeneous  theory,  this  ratio 
is  always  In  this  work,  the  ratio  will  depend  uDon  the  modeled  heteroqenei tv 

and  a 2 as  well  as  on  >-|. 

The  expression  for  the  response  function  is: 


Where  R = response  function 

V9  = Z,(l+H +H  ) (see  Eq.  [5a]) 
j a a ni 

V5  = (see  Eq.  [32]) 

C = (see  Eq.  [4]) 

Vf..  = (exp(y*)-l)  (see  Eq.  [47],  appears  as  coefficient 

A of  x ') 
w 

Vgg  " ( l+ip)y*exo(y*)  (see  Eq.  [47],  appears  as  coefficient 
of  p'/p  and  as  part  of  the  coefficient  of  r'/r). 

If  the  ratio  Kp  depended  upon  g 1 and  t 1 separately,  the  problem  would  require 
an  iterative  solution.  However,  it  turns  out  that  Kp  is  an  intrinsic  property  of 
the  solid  phase,  independent  of  the  surface  boundary  condition,  just  as  is  \-|  for 
the  homogeneous  solid.  The  reason  is  that  the  solid  phase  is  described  by  linear 
homogeneous  differential  equations.  All  solutions  of  such  eauations  of  second  order 
are  of  the  form: 

f = C ^ f i ( x ) + C2fp(x) 


where  f = denotes  functions 

C.|  = first  arbitrary  constant 
Cp  - second  arbitrary  constant 


'jl'dd  ’ O"  l i v . 


■J  C,f,'tx)  * CjV'O 

U is  required  that  g/f  go  to  A-  i r.  *he  de  >r  so1  id.  Th->s  cons  . ’ t i »•, 
>f  .‘ho  two  boundary  conditions  that  can  ho  i"r-;s«c . There  Fvo  C ■ ! 
mriot  be  independent  Solving  for  (p  in  +enns  >f  f . 


C,  = C, 


f j ' («> ) - 1 1 f i (™) 


r.ib  t i tut.i  on  o*  this  expression  for  C.  ;ntc  the  ratio,  g/f,  *o*. ’(vi-d 

c. 

j iloeniaic  simplification,  leads  to  the  res  it-  that  q/f  depends  noon  1 ‘-e 


. 1 1 


md  not  cor,  <-•  and  Cp  independent  v 


kj  tUu.  : U,  / 


\ »*• 


or  , c - o i.  :•*  . rid  wi 1 1 vary  with  x for  c i, . vc-  i ease,  the  importer. . pmnt 
. lit : t ' deo-ods  only  on  the  ratio  L^/C,  ana  >.  This  property  was  fi.  :t 
'-■servec  nui.er  cally  in  tne  course  of  a prototypal  computer  program  wh  r» 
baser,  uoor.  cn  iterative  scheme.  Accordingly,  it  suff  :e;  t(  gc  thr  ugh 

a 

end  1 5 b ; ir  1 e "avers,  beginning  with  «.  ‘■ic  .r1  .j 

• Tic  r,  tprouch  the  melt  layer,  lust  -no  tin  r 'C“  * -•• 

Fq.  f f- 0 ) f pr  R is  solved  bv  complex  rrithemt':c^  . 

s or  ,r. teres t to  examine  the  form  ot  tc  (5*  . !n  comoa^isi  to  tc 
. ..  ned  ’ o the  i omoyeneous  theory  fRef  In;  The  ta  r.er  can  o. 


r>  - 


finAR 

AB-Tl+A)T  + i A - • ( r - ■ A J 


where  n = pressure  exponent 

A - a sol  id  phase  parameter  not  to  be  cic  ■ 
with  A as  defined  in  Eq.  (1) 

B = a gas  phase  parameter,  not  to  he  confused 
with  B as  defined  in  Eg  (3) 

\-|  = as  defined  in  Egs.  (35.  36);  it  is  of  opposite 
s i qr  in  Re* . (in' 


Subroutine  LAf  :SP  of  the  computer  program. 
SUr'O'.t  ir-«.  11LTLRD  of  the  computer  program. 

’ _n  if  the  computer  iroqram. 


! 


i 


It  is  noted  that  Tqs.  (50)  and  (51)  are  identical  in  form  and,  to  some 


extent,  they  are  similar  in  substance.  The  parameter  Vgg  combines  condensed 


phase  and  gas  phase  terms,  as  does  (nAB)  of  Eq.  (51).  The  parameters  C and 


V.,  although  different,  are  condensed  nhase  terms  as  is  A of  Ea.  (51).  The 


parameter  V is  a oas  nhase  term,  as  is  B of  Eq.  (51).  The  parameter  is 


related  to  C,  and,theref  re,  a part  of  the  analogy  to  A;  but  important 


differences  from  A derive  from  the  finite  melt  layer.  The  parameter  is 


the  heter  ifieneous  analog  of  • The  parameter  Z is  purely  a consequence  of 

cl 


tne  heterogeneity,  so  there  would  be  no  analog  fo,r'  it  in  En.  (51).  The 


ulmti*.  ir  form,  md  thi  similarity  in  substance,  suggests  that  the  hetero- 


gen:’/ as  described  by  this  model  will  not  nroduce  radical  changes  in  the 


lal  i - i • . . ",  ! v ■'  • soonse  func  t ion. 


The  zero-frequenc y limit  of  Eq.  (51)  is  the  pressure-exponent,  n . 


hi  . j r ( 1 exponent  ‘oes  n ' apoear  explicitly  as  such  in  the  steady-state 


i 'del  described  here  it  devertheless , it  is  of  interest  to  examine  the  zero- 


frequency  li  lit  of  Eg.  (■  1).  It  is  readily  aoparent  that  a non-zero  response 


function  at  zero  freou^n  requires  that  the  followinn  relationship  be  satisfied: 


rhe  satisfaction  of  F.ci.  (52)  is  verified  bv  combinino  Ens.  (31),  (32),  (5a' 


the  derivative  of  Eg.  15)  aoolied  at  y=0,  and  a perturbation  of  Eq.  (2a).  In 


general.  K ^ must  be  solved  numerically,  but  at  zero  frequency  it  is  possible 
to  derive  an  expression  which  reduces  to  -C/V ^ . Since  Eq.  (52)  is  satisfied, 
the  indeterminate  form  of  Eg.  (50)  that  results  may  be  evaluated  to  yield  the 


non-zero  response  function: 


Lim  R 
k n 


2VfiU 

J 
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Eq.  (53)  may  be  thought  of  as  an  "effective"  pressure  exponent,  extracting  ar 
implicit  property  of  the  model.  Note  that  it  depends  uoori  condensed  Dhase 
terms  as  well  as  oas  phase  terms.  Numerically,  it  is  found  to  be  consistent 
with  pressure-deoendence  as  calculated  from  results  of  the  steady-state  model 


SECTION  5 


MODEL  RESULTS 


5.1  THE  STEADY -STATE  MODEL 

>sults  of  the  te  dy-state  model  have  been  obtained  in  order  to  evaluate 
some  of  the  import an'  lei  premises.  The  essential  results  are  tabulated  in 
Table  I. 

l.ible  1 pres  nt  v rinus  results,  compared  with  data  and  with  BDP  model 

results,  tor  A- 1 3 nr  . lant  used  as  a standard  case.  The  first  set  of  results 

impares  burning  rat  a function  of  pressure.  The  model  results  corware 
v ry  well  with  th  d ' It  mould  be  emphasized,  however,  that  these  results 
should  not  tie  con  r.ruer  to  imply  that  this  model  is  "better  than'  the  BDP 

f result  re  tei  erature.  Experimental 

value'  if  .urface  te  Denature  are  reportedly  in  the  neighborhood  of  850°K  (26). 

It  is  observed  that  :h  model  produces  higher  surface  temperatures  and  a some- 

iter  r i ire  that  th<  BOf  model.  However,  the  results 

are  reasonable,  'he  re  ilts  also  confirm  the  assumption  that  variations  in 
surface  temoeratu’  1 ,re  second  order  (or  smaller)  with  respect  to  variations 
in  burnino  rate.  Th  * i rd  set  of  resul ts  compares  flame  standoff  distance. 

This  model  uses  one  fla  e.  The  BDP  results  are  for  the  urinary  flame  (sum 

of  diffusion  and  rea  td  n heights),  and  the  values  to  the  rinht  of  the  slash 
are  for  the  AP  monoprnpel lant  flame  when  that  flame  moves  closer  to  the  surface 
than  the  primary  fla:  e.  When  that  happens,  the  BDP  model  emoloys  an  enemy 
partitioning  which  m y e thought  of  as  seme  sinqle  flame  havinn  an  effective 
height  between  the  two  shown.  On  that  basis,  the  flame  heights  from  this  model 
are  roughly  a factor  of  3 greater  than  fron  the  BDP  model,  but  the  qualitative 
behavior  with  prer su  e is  the  same.  The  value  of  Cr  in  Eg.  (24)  was  adjusted 
to  a hieve  uood  <v:re>nent  with  the  burning  rate  data;  values  of  other  constants 
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TABLE  I 


-V5SE4E 


COMPARISONS  OF 

BURNING  RATE 

AND  OTHER  QUANT  IT  I 

burn; ng  rate 

PRESSURE 

DATA 

FROM 

(PSIA) 

(cm/ sec ) 

BDP  MODEL 

100 

0.27 

0.29 

300 

0.41 

0.39 

500 

0.52 

0.47 

700 

0.62 

0.53 

900 

0.73 

0.60 

1100 

0.85 

0.65 

NALL  TEMPERATURE 

100 



824°K 

300 

— 

836 

500 

— 

844 

700 

— 

851 

900 

— 

855 

1100 

— 

859 

f LAME  HEIGHT 

100 



2 5 . 6ym 

300 

— 

20.7 

500 

— 

19.9/13.3 

700 

— 

29.5/5.7 

900 

— 

19.4/3.1 

1100 

— 

19.3/3.1 

FOP,  A- 13  PROPELLANT 


FROM 

THIS  MODEL 

0.28 

0.47 

0.55 

0.65 

0.74 

0.83 


864 

900 

937 

973 

982 

986 


82.9 

50.8 

35.7 
30.2 

25.8 
23.6 
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are  the  same  as  used  in  the  BLIP  model.  It  is  concluded  that,  for  purposes  of 
the  time-dependent  ms  lysis,  the  model  cnform  reasonably  well  with  steady- 
s ta  te  rea  1 i ty . 

The  abilit..  ti  i induce  measured  effects  ot  AP  particle  size  on  burning 
rat  wn  i'Sted  with  series  ot  propellants  analogous  to  A- 1 3 . These  propellants 
were  the  subject  of  a low  pressure  L*  instability  study  performed  by  Ramohalli 
(3b).  The  comparison  of  burning  rates  at  100  psia  is  as  follows: 

PARTICLE  SIZE  (yin)  DATA  (cm/ sec)  MODEL  (cm/ sec) 


40 

0.41 

0.38 

9C 

0.27 

0.28 

200 

0.23 

0.19 

360 

0.19 

0.13 

Attain,  the  agreement  is  reasonable. 

Thet  are  t .o  ■ >t I • »r  aspects  of  the  steady-state  model  results  which  merit 
disci  ion:  The  me  it  layer  and  tiie  heterogeneity  in  relation  to  the  thermal  wave. 

It  layer  thickr  t ted  tf  )f  microns  or  le 

which  is  consistent  w’th  experimental  observation  and  the  thin  melt  layer 
assumption.  It  dependence  upon  heating  ’-ate  involves  a tradeoff  between  surface 
temperature  and  he  sepness  of  the  thermal  grdient.  Theoretically,  it  will 
disappear  at  sui  v.  burning  rate  that  the  surface  temperature  does  not  reach  the 
AP  melting  point,  a id  also  will  pproach  zero  at  very  high  burning  rate  where 
the  gradient  is  vet  seep.  Although  the  layer  is  thin,  it  was  considered 
improper  to  neglect  it  for  mathematical  convenience  because  the  characteristic 
time  of  its  dimtnsi’n  orresponds  to  the  higl  frequencies  of  interest. 

35.  Kumar,  R.  < ad  IcIJamara,  R.  P.,  Some  Experiments  Related  to  L-Star 
Instability  in  -Ticket  Motors",  A1AA  Paper  73-1300  (Nov.,  1973). 
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For  particle  sizes  in  excess  of  40um,  the  thermal  wave  will  not  penetrate 
the  first  AP  layer  under  conditions  of  interest.  The  implication  is  that, 
except  for  the  melt  layer,  the  solid  can  be  considered  homogeneous  in  determining 
its  role.  However,  this  is  not  true  for  the  fine  sizes  which  are  generally 
utilized  in  practical  propellants.  An  estimate  for  a 2um  AP  propellant  reveals 
that,  at  1000  psi,  the  temperature  does  not  fall  to  within  10  percent  of  the 
bulk  temperature  until  about  5 pairs  of  AP-binder  layers  are  traversed.  Further, 
if  the  2um  AP  is  a component  of  a multimodal  propellant,  the  burn  rate  will  be 
lower  such  that  the  thermal  wave  will  penetrate  more  layers  of  the  column 
consisting  of  the  2um  AP.  As  a result,  it  appears  that  the  role  of  solid  phase 
heterogeneity  will  be  limited  to  melt  layer  heterogeneity  in  the  intermediate- 
coarse  size  regime,  but  that  in-depth  heterogeneity  can  be  important  in  the 
fine  size  regime.  This  distinction  is  one  consequence  of  the  present  fixed- 
geometry  model;  were  the  layers  permitted  to  move  to  evoke  the  pulsation 
mechanism,  then  the  in-depth  heterogeneity  could  be  important  for  all  sizes. 

The  distinction  was  considered  significant  in  view  of  the  experimental  importance 
of  fine  AP  ( 15) . 

5.2  THE  TIME-DEPENDENT  MODEL 

The  effects  of  the  solid  phase  heterogeneities  are  most  likely  to  appear 
at  combinations  of  fine  AP  and  low  burning  rate.  Therefore,  a test  case  consisting 
of  a 2um  AP  propellant  at  a burning  rate  of  0.47  cm/sec  was  selected  for  evaluation. 
Except  for  the  particle  size,  this  test  case  would  correspond  to  A- 13  propellant 
at  300  psi.  Results  are  shown  in  Figure  3.  The  solid  line  is  for  the  hetero- 
geneous propellant.  The  long-dash  line  is  for  AP  and  binder  thermal  properties 
equal  to  mean  propellant  thermal  properties;  therefore,  it  is  for  melt  layer 
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itions  for  a 2 fi  AP  Analog  of  A- 13  Propell 


Q 

heterogeneity  only,  the  propellant  below  the  melt  layer  being  homogeneous  . 


; 


The  short-dash  line  is  for  a completely  homogeneous  solid;  i.e.,  the  distributed 
heat  release  in  the  finite  melt  layer  is  now  concentrated  at  the  surface  only 
and  the  entire  region  beneath  the  surface  is  homogeneous^.  It  is  observed 
that  the  effects  of  the  heterogeneities  are  small. 


Figure  4 compares  results  for  a 90pm  AP  propellant,  which  is  A- 1 3 
propellant,  with  the  Figure  3 results.  Thus,  the  effect  of  particle  size  at  a 
constant  burning  rate  is  shown.  In  the  framework  of  this  model,  a constant 
burning  rate  implies  a constant  wall  temperature  and  constant  dimensionless 
flame  properties;  thus,  any  difference  is  due  to  solid  phase  heterogeneities. 

An  effect  of  the  heterogeneity  does  appear,  but  again,  it  is  small.  It  is 
noted  that  the  results  for  A- 13  are  virtually  identical  to  the  homogeneous 
solution  displayed  in  Figure  3.  In  the  case  of  A- 1 3 , the  thermal  wave  dees  not 
penetrate  the  surface  AP  layer  and  the  melt  layer  thickness  is  about  1 percent 
of  the  particle  size;  thus,  the  solid  is  homogeneous  for  all  practical  purposes. 
In  the  case  of  the  2mn  propellant  the  thermal  wave  penetrates  15  AP  layers  and 
the  melt  layer  thickness  is  about  one-third  (1/3)  of  the  particle  size;  thus, 
the  solid  is  heterogeneous,  but  the  effect  of  the  heterogeneity  appears  to  be 
small.  Significantly,  the  effect  is  small  with  respect  to  peak  response 


k =k.=k  : 
a b s 


>Vpb  "ps! 


c =c.=c  Z=1 . 

a b s ; 


10  V , = C = Z = 1;  K„  = A. ; V,-  = 0*x*  This  would  correspond  to  the  Denison  arc; 

Baum  model  except  for  differences  in  the  modeling  of  the  gas  phase,  arc, 
differences  in  the  values  of  combustion  constants  due  to  the  use  of  this 
model  (including  the  finite  melt  layer)  to  reproduce  steady-state  burning 
rates . 
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The  theoretical  results  for  the  A- 1 3 propellant,  moreover,  do  not  agree 
with  experimental  data.  The  A- 13  is  a JANNAF  standard  propellant,  and  has  been 
wel 1 -characterized  in  T-burner  testing  (Ref.  36).  The  experimental  peak 
response  is  about  4 and  occurs  at  roughly  300  Hz.  Thereafter,  the  response 
declines  to  a value  of  approximately  1.5  at  1000  Hz.  The  theoretical  results 
presented  in  F.gure  4 show  a peak  response  of  0.58  at  125  Hz,  and  a value  of 
0.51  at  1000  Hz.  Therefore,  the  theory  shows  a relatively  slight  peak  and  at 
too  low  a frequency.  Such  theoretical  results  are  a consequence  of  the  combustion 
paramters,  analogous  to  the  “A"  and  "B"  (or  "a")  parameters  of  the  Denisor  & 

Baum  model.  Presumably,  the  agreement  with  data  could  be  improved  by  selection 
of  a different  set  of  parameters.  However,  a ground  rule  of  this  study  was  that 
t hej>a rameters  would  be  predetermined  by  considerations  of  a credible  stea d;,- 
state  model.  Given  that  model,  it  is  inappropriate  to  change  the  constants 
arbitrarily.  According  to  Ref.  (27),  a relatively  large  value  of  the  "B"  (or 
"u")  parameter  will  constrain  the  time-dependent  model  to  the  prediction  of 
small  peaks,  and  a relatively  small  value  of  the  "A"  parameter  will  produce  low 
peak  response  frequencies.  By  analogy,  that  is  tiie  situation  here.  Since  it 
would  be  inappropriate  to  juggle  parameters,  it  must  be  concluded  that  there  i 
a mechanistic  deficiency  in  the  time-dependent  model  that  has  been  postulated  here. 

Figure  5 presents  theoretical  results  showing  the  effect  of  burning  rate  for 
a constant  particle  size.  The  2yin  AP  propellant  was  selected  for  this  illustration. 

36.  "T-Burner  Manual",  CPIA  Publication  191  (Nov.,  1969). 
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frequency  as  well  as  magnitude.  Thus,  it  can  be  concluded  that  the  expected 
effects  of  the  heterogeneity  are  not  being  represented  by  this  model. 


r 
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The  higher  burning  rate  is  representative  oi  this  propellant;  the  lower  burning 
rate  may  be  thought  of  as  a suppression  for  purposes  of  Figures  3 and  4.  The 
effect  on  peak  response  frequency  demonstrates  further  that  the  modeled 
heterogeneities  are  of  little  consequence.  It  is  observed  that  the  peal  response 
frequency  varies  nearly  with  the  square  of  the  burning  rate,  which  is  the 
result  for  homogeneous  propellants.  On  the  other  hand,  the  Figure  3 and  4 
results  show  that  the  effect  of  the  heterogeneity  on  peak  response  frequency  is 
about  10  percent.  According  to  the  Cohen  postulates  for  the  effect  of  hetero- 
geneity, the  peak  response  frequency  in  Figure  5 should  vary  with  the  first 
power  of  burning  rate,  and  in  Figure  4 it  should  vary  inversely  with  particle 
size.  These  effects  are  not  being  produced  by  this  model. 

Figure  6 compares  theoretical  results  with  experimental  data  for  a bimodal 
propellant.  Although  the  shape  of  the  theoretical  curve  is  reasonable,  the 
peak  response  magnitude  and  frequency  are  again  underpredicted.  Also,  the 
zero  frequency  limit  is  overpredicted,  reflecting  a deviation  from  the  measured 
steady-state  pressure  exponent.  It  appears  that  further  work  is  necessa1'. 
in  order  to  implement  a proper  mechanism  for  the  combustion  response. 


Figure  6.  Comparison  of  Theory  and  Experiment  for  SP-540  Propellant  at  500  psi 


SECTION  6 


CONCLUSIONS  AND  RECOMMENDATIONS 

An  analytical  model  has  been  develooed  which  incorporates  mechanisms  of 
solid  phase  and  gas  phase  heteroqenei ties  into  the  calculation  of  steady-state 
and  linear  time-dependent  combustion  properties  of  composite  solid  propellants. 
Although  the  model  satisfactorily  describes  the  steady-state  combustion  properties, 
it  is  deficient  in  describing  the  time-dependent  combustion  response  characteristics 
in  several  respects.  Use  of  a consistent  set  of  combustion  constants  produces 
peak  response  magnitudes  and  frequencies  which  are  too  low  in  comparison  to 
experimental  data  and  which  are  not  significantly  affected  by  the  AP  particle 
size  per  se.  Although  an  effect  of  the  solid  phase  heterogeneities  is  predicted 
by  this  model,  the  effect  is  quantitatively  so  small  as  to  allow  it  to  be  neglected 
in  future  work.  Therefore,  the  role  of  cannot  be  attributed  to  the  solid  phase 
alone  unless  some  other  mechanism  is  incorporated  into  the  theory.  It  is  recom- 
mended that  the  concept  of  movinq  layers  be  re-examined,  including  I us t i fication 
for  the  coherence  of  such  a mechanism.  It  is  further  recommended  that  the  per- 
turbed BDP  model  be  examined  as  a potentially  useful  way  in  which  to  represent 
the  heterogeneity  of  the  gas  phase.  It  is  desired  not  only  to  achieve  the  effects 
of  the  heterogeneity,  but  also  to  justify  a set  of  values  of  the  combustion  constants 
that  will  properly  position  the  response  function  curve.  It  appears  necessary  to 
modify  both  the  solid  phase  and  gas  phase  models  in  order  to  achieve  those  purposes 
in  a consistent  manner. 
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APPENDIX  A 


COMPOSITE  SOLID  PROPELLANT  COMBUSTION  RESPONSE  MODEL  COMPUTER  PROS RAM 


This  appendix  presents  information  essential  to  the  utilization  of  the 
composite  Solid  Propellant  Combustion  Response  Model  E CSP  CRM)  computer  program 
This  information  is  presented  under  the  following  headings  and  in  the  order 
1 i s ted  : 


1.  Definitions  of  Input  Data 

2.  Input  Deck  Corresponding  to  the  Example  Problem. 

3.  Definitions  of  Output  Data 

4.  Card  Image  Listing  of  Program. 

5.  Description  of  Program  Logic,  Subroutines  and  Use  of  Text  Equations 

6.  Solutions  to  Example  Problem 
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A-i.  DEFINITIONS  OF  INPUT  DATA 


All  input  to  the  Composite  Solid  Propellant  Combustion  Response  Model 
Computer  Program  is  made  by  means  of  a NAMELIST/INPUT  statement  and  an 
associated  read  statement,  both  of  which  appear  in  the  DATAIN  subroutine. 
The  F0RTRAM  names  of  the  input  variables  and  parameters,  together  with 
their  corresponding  algebraic  symbols  and  brief  definitions  are  presented 
below  in  the  exact  order  that  they  appear  in  the  INPUT  list: 


FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

CA 

C 

a 

specific  heat  at  constant  pressure  for  the 
oxidizer  (cal  g~l  °K"',  real) 

CB 

Cb 

specific  heat  at  constant  pressure  for  the 
binder  (cal  g~l  °K"1,  real) 

CG 

cg 

specific  heat  at  constant  pressure  for  the 
combustion  gas  mixture  that  exists  between 
the  gas-condensed  phase  interface  and  the 
flame  front  (cal  g-1  °K" ' , real) 

KA 

ka 

thermal  conductivity  of  the  oxidizer 
(cal  see-!  crrH  ^K-',  real) 

KB 

kb 

thermal  conductivity  of  the  binder  (cal 
sec-1  cm-!  °K_1,  real) 

R0A 

• a 

density  of  the  oxidizer  (g  cm,  real) 

R0B 

*'b 

density  of  the  binder  (g  cm~3,  real) 

WAC(J) 

wa(.i) 

fraction  of  composite  solid  propellant 
mass  attributable  to  the  j th  size  component 
of  the  oxidizer  (j  s 4)  (dimensionless,  real) 

SMLA(.l) 

ai  or  Di 

diameter  of  j th  size  component  oxidizer 
particles  (j  i 4)  (cm,  real) 

Note:  Must  be  listed  in  order  of  increasing 
particle  size. 

E 

E 

activation  energy  for  decomposition  of  the 
oxidizer  (cal.  g-mole'l,  real) 

R 

R 

universal  gas  constant  (cal.  g-mole"!  °K-^ , r 
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FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

PRXFAC 

A 

prefactor  in  the  Arrhenius  expression  for 
oxidizer  decomposition  [sec~\  real) 

QS 

^a 

gross  heat  of  decomposition  of  the  oxidizer 
(equals  net  heat  of  decomposition  of  the 
oxidizer  minus  latent  heat  of  melting  of 
the  oxidizer)  cal  g-1,  real) 

QB 

% 

heat  of  decomposition  of  the  binder  ( cal 
g~l , real) 

QLM 

latent  heat  of  melting  of  the  oxidizer  ( cal 
real  ) 

KFLMHT 

CF 

CF  = px*/(rU'|)  constant  of  proport i ona  1 ity  in  the 
rational  algebraic  approximation  to  BDP  affective 
flame  height  (atmos  sec  urrH , real) 

TFLM 

Tf 

adiabatic  temperature  of  the  gas-phase 
combustion  flame  sheet  (°K,  real) 

TM 

Tm 

melting  temperature  of  the  oxidizer  (°K,  real) 

TZR0 

To 

temperature  in  the  composite  solid  propellant 
far  from  the  gas-coridensed  phase  interface 
( K,  real  ) 

PBAR 

P 

temporal  mean  pressure  in  the  gas  phase — 
assumed  to  be  uniform  (atmos,  real) 

RBk 

r 

temporal  mean  rate  of  regression  of  the 
composite  solid  propellant;  no  input  if 

ITERA-1  (cm  sec"*,  real) 

T0L 

arbitrary  tolerance  employed  in  the  steady- 
state  part  of  the  computer  program  to 
evaluate  convergence  of  the  steady-state 
solution  (dimensionless,  real,  usually 

10'3  <T0L  < 10-5) 

ITERA 

specifies  the  mode  of  operation  of  the 
computer  program:  If  ITERA=0,  the  prograr 
determines  the  combustion  response  parameters 
or  a CSP  whose  temporal  mean  regression  rau: 
is  specified;  if  ITERA=1,  the  program  determines 
the  temporal  mean  regression  rate  for  a propel  1 an- 
whose  basic  physical  and  chemical  characteristics 
have  been  specified  (dimensionless,  integer). 
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FORTRAN 

NAME 

N5MAX 

NPP 

TAP  IN 

YTD 

0MEGA 

NEQ 

KD 

MXSTEP 

EP 


ALGEBRAIC  DEFINITION 

SYMBOL 

if  ITERA= 1 and  if  a satisfactory  value  for 
RBR  has  not  been  achieved  after  N5MAX-1  one- 
percent  increments  or  decrements  of  RBR,  the 
solution  will  be  terminated  and  an  appropriate 
comment  will  be  printed  in  the  computer  output 
(dimensionless,  integer,  5<N5MAX<20) 

Note:  This  mode  of  program  termination  indicates 
an  injudicious  initial  choice  for  RBR. 

I 1 normalized  pressure  perturbation  (dimensionless, 

polar  complex)  Note:  This  is  the  exciter  of  the 
perturbation ; as  such,  its  phase  is  arbitrarily 
set  equal  to  zero 

normalized  temperature  perturbation  applied  in 
the  solid  phase  at  a distance  from  the  gas- 
condensed  phase  interface  that  is  several  times 
the  characteristic  transient  thermal  depth 
within  the  solid. 

(dimensionless  polar  complex) 

Note:  Since  the  ratio,  (g'/t1)  » 

obtained  from  the  solid  phase  solution  is 
independent  of  the  argument  assumed  for  t',  the 
argument  is  ordinarily  arbitrarily  set  equal  to  zero. 

factor  which,  when  multi  pled  by  SQRT  ( KAPS/0MEGA) , 
provides  a value  of  x o,  viz.,  XTD  (dimensionless, 
usually  assumed  to  be  an  integer  _3) 

Note:  SQRT  (KAPS/0MEGA)  is  a measure  of  the 
depth  of  penetration  of  the  perturbation  into  the 
CSP 

assumed  angular  frequency  of  the  perturbation 
Iradi ans  sec  , real ) 

number  of  differential  equations  solved  in 
subroutine  SVPQ — always  equal  to  one  in  this 
computer  program  (dimensionless  integer) 

order  of  the  differential  equations  solved  in 
subroutine  SVDQ — always  equal  to  two  in  this 
computer  program  (dimensionless,  integer) 

maximum  number  of  steps  allowed  between  output 

points  in  subroutine  SVDQ usually  set  equal 

to  one  hundred  in  this  computer  program 
(dimensionless,  integer) 

parameter  used  to  control  local  error  in  subroutine 
SVDQ — refer  to  description  of  subroutine  for 
guidance  in  setting  the  value  of  this  parameter 
(dimensionless,  real ) 
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I 0RTRAN 
NAME 

IH0M0 


ALGEBRAIC  DEFINITION 

SYMBOL 

When  IH0M(j=0,  certain  pertinent  physical  and 
thermal  properties  of  the  propellant  binder, 
oxidizer,  and  gaseous  products  specified  ;r 
name  1 i st/ i nput/are  generally  distinct; 
however,  when  IH0M0=1,  these  properties  are 
set  equal  to  corresponding  properties  of  the 
oxidizer.  Thus,  specifying  I H0M0= 1 implies 
a homogeneous  propellant  (dimensionless, 
integer) 
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A- 3.  DEFINITIONS  OF  OUTPUT  DATA 


All  permanent  output  of  the  Composite  Solid  Propellant  Combustion  Response  Model 
(CSP  CRM)  Computer  Program  is  made  by  means  of  NAMELIST/0UTRUT  statements  and 
corresponding  associated  write  statements.  All  of  the  NAMELIST/0UTPUT  statements 
and  associated  write  statements  appear  in  the  DTA0UT. 

Although  some  temporary  NAMELIST/TP0UT  statements  and  associated  write  statements 
are  located  in  various  intermediate  subprograms  of  the  CSP  CRM  Computer  Program, 
the  FORTRAN  names  therein  are,  with  rare  and  inconsequential  exception,  reprinted 
in  one  or  the  other  of  the  write  statements  associated  with  NAMELIST/0UTPUT  sta te- 
nants . For  this  reason,  only  F0RTRAN  names  associated  with  permanent  output  are 
presented  here. 

Each  NAMELIST/0UTPT  and,  within  each  list,  each  F0RTRAN  name  appearing  in 
DTA0UT  are  presented  below  in  the  exact  order  of  appearance  in  the  resulting  print-out. 
NAMELIST/0UTPT  1 


FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

JMAX 

"'max 

maximum  number  of  size  components  of  the  ovidizer 
(j  < 4)  (dimensionless,  integer) 

WA 

W 

a 

Wa  = £ W (j) 

cl  a 

fraction  of  solid  propellant  mass  attributable 
to  all  size  components  of  the  oxidizer  (diners 
less , real ) 

DNM 

- 

denominator  in  formula  for  SMLB  in  subrou*ine 

DATAIN  T[w  ( j ) /a  . ] (cm-1,  real) 
a J 

WB 

Wb 

W,  =1  ,-W 
b 8 

fraction  of  solid  propellant  mass  attributable  tc 
the  binder  (dimensionless,  real) 

VFA 

V 

volume  of  the  oxidizer  expressed  as  a fraction 
of  solid  propellant  volume  (dimensionless,  real) 

SMLATP 

a, 

top 

atoPy~-f  Ajni 

Hermance  equivalent  mean  size  of  the  oxidizer  size 
component  assumed  to  exist  in  the  topmost  lamina  of 
the  solid  propellant  (jm)  (cm,  real) 
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FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

DLTYTP 

^top 

ytop  atop  r'Ka 

thickness  of  any  oxidizer  lamina  other  than  the 
topmost  (dimensionless,  real) 

SMLB 

b 

b=W-{[>/6v)]1/3  - /T/T"  }/i[W.(j)/a.] 

a d J 

idealized  thickness  of  a binder  lamina  calculated  on 
the  basis  of  oxidizer  packing  factor  (cm,  real) 

DLTYBB 

A^b 

Avbf/Kb 

thickness  of  any  binder  lamina  (dimensionless,  real) 

KS 

ks 

bulk  equivalent  thermal  conductivity  of  the  CSP 
(cal  sec''  cm''  °K"  real) 

R0S 

ps 

_3 

bulk  mean  density  of  the  CSP  (g  cm  , real) 

CS 

Cs 

bulk  equivalent  specific  heat  at  constant  pressure 
of  the  CSP  (cal  g*'  °K"' , real) 

KAPA 

K 

a 

Vka/pa(^)  2 , 

thermal  diffusivity  of  the  oxidizer  (crn  sec  , real 

KAPB 

Kb 

"b=ks/(psCs) 

bulk  equivalent  thermal  diffusivity  of  the  CSP 
(cm2  sec' ' , real ) 

KAPS 

Ks 

VV(-’sCs> 

bulk  equivalent  thermal  diffusivity  of  the  CSP 
(cm2  sec-' , real ) 

Z 

Z 

ratio  of  thermal  capacity  per  unit  volume  of  the 
bulk  CSP  to  that  of  the  oxidizer  (dimensionless, 
real ) 

Z 

1 

z 

2'"‘>sCs/(»bCb) 

ratio  of  thermal  capacity  per  unit  volume  of  the 
bulk  CSP  to  that  of  the  binder  (dimensionless,  real) 
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NAMFLIST/0UTPT 

2 

FORTRAN 

ALGEBRAIC 

DEFINITION 

NAME 

SYMBOL 

THETAA 

°a 

VE/(RV 

(dimensionless,  real) 

VTo 

CHI 

x 

X - ' ' — 

Tw 

(dimensionless,  real) 

D 

D 

D=VX 

(dimensionless,  real ) 

QSDMLS 

Ha 

VWtCa(VTo» 

(dimensionless,  real) 

QMDMLS 

Hm 

VW^a  Hw"t0)  ] 

1 dimensionless , real) 

FDMLS 

'f 

Tf=r / ( T -T  ) 
w 0 

(dii.  lonless,  real) 

B 

B 

^a'W&a'VV* 

(dimensionless , real ) 

KMLTLR 

K 

K=B  exp  (-6  )/D 

a 

(dimensionless,  real) 
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NAMEL IST/0UTPT  3 


FORTRAN 

NAME 


ALGEBRAIC 

SYMBOL 


rWBAR 


T. 


YSSTBR 


y*  =— 

S K 


XSTBAR 

AMM 

TAUMLT (M- 


m-1 


XMLT (M-l ) 


m-1 


RBR 

ITERA 


N5 


N5I-1AX 


DEFINITION 


mean  temperature  of  the  gas-liquid  interface  at 
the  mean  position  of  this  interface,  i.e.,  at 
y=o  (°K,  real ) 


dimensionless  flame  mean  stand-off  distance 
(dimensionless,  real) 


flame  mean  stand-off  distance  (cm,  real) 
equivalent  mean  particle  diameter  (cm,  real) 


dimensionless.mean  temperature  within  the  melt 


layer  Note:  T =1.0,  and  Tinn=Tmo1f,  the 


o — - '100  ‘melt’ 

dimensionless  melting  temperature  of  the  oxidizer, 
(dimensionless,  real) 


distance  from  the  mean  position  of  the  gas-liquid 


interface  to  the  location  at  which  y=f  ^ (cm,  real) 


index  of  the  increments  in  T and  x that  are  calculated 
and  tabulated  through  the  melt  layer  2-Mil 0 1 
(dimensionless,  integer) 


index  of  laminae  from  the  gas-liquid  interface 
(n=0),  through  the  liquid-solid  interface  (n=l), 
through  the  first  oxidizer-to-binder  interface 
(n=2)  through  the  first  binder-to-oxidizer 
interface  (n=3),  and  so  on  to  as  far  into  the  CSP 
as  n=l 01 , if  necessary  (dimensionless,  integer) 


temporal  mean  rate  of  regression  of  the  composite 
solid  propellant  (cm  sec'l,  real) 


specifies  the  mode  of  operation  of  the  computer 
program:  If  ITERA=0,  the  program  determines  the 
combustion  response  parameters  for  a CSP  whose  temporal 
mean  regression  rate  is  specified;  if  ITERA=1  , the 
program  determines  the  temporal  mean  regression 
rate  for  a propellant  whose  basic  physical  and 
chemical  characteristics  have  been  specified 
(dimensionless,  integer) 


when  ITERA=1 , N5  is  the  number  of  the  iteration  in  the 
iterative  attempt  to  determine  RBR  (11N5SN5MAX) 
(dimensionless,  integer) 


if  I TER A= 1 and  if  a satisfactory  value  for  RBR  has 
not  been  achieved  after  N5MAX-1  one-percent  increments 
or  decrements  of  RBR,  the  solution  will  be  terminated 
and  an  appropriate  comment  will  be  printed  in  the 
computer  output  (dimensionless,  integer) 

Note:  This  mode  of  program  temination  indicates 
an  injudicious  initial  choice  for  RBR. 
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NAMELIST/0UTPT 

FORTRAN 

NAME 

LFLAG 

GWBRS 

DGWBRS 

QLDMLS 


3 (continued) 

ALGEBRAIC  DEFINITION 
SYMBOL 


(dI  ) 

dys;ys=0 


LFLAG  is  set  to  zero  each  time  SUBROUTINE  SLDFAZ 
is  entered  in  a normal  manner.  If  ITERA=0,  LFLAG 
is  then  immediately  reset  to  1 and  control  of  the 
program  is  returned  to  SUBROUTINE  C0NTRL, 
the  main  program,  as  soon  as  explicit  values  of 
certain  required  variables  are  determined  in 
SUBROUTINES  SLDFAZ,  GASFAZ  , and  AMULTI . If  ITERA- 1 , 
LFLAG  is  only  reset  to  1 and  program  control  is 
only  returned  to  the  main  program  when  a suitable 
value  has  been  found  for  RBR  or  when  N5=N5MAX 
(dimensionless,  integer) 

d x 

g - ),  n (dimensionless,  real) 

Jwc  dy  'y  =0 


(d£  ) 

ldys;ys=0 


=0 


(dimensionless,  real) 


sometimes  set  equal  to  at  other  times,  calcu- 
lated as  non-dimensional ized  sum  of  H and  the 

actual  heat  absorbed  as  a result  of  oxidize*' 
degradation  as  it  is  transported  through  the 
melt  layer.  Note:  The  two  methods  of  dete- 
H.j  ordinarily  lead  to  virtually  identical  results. 

(dimensionless,  real  ) 
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NAMEL IS!  0U1PT  4 


I 0RTRAN 
NAME 

TAUl  R (N) 

DTAULR(N) 


XLR  (N) 

DSCRIM(N) 


ALGEBRAIC 

SYMBOL 


i 

n 


1 


n- 


x 


n 


t +( 
n 


dT) 

dy  n - 


DEFINITION 


dimensior less  mean  temperature  at  distance  SLR(N) 
from  the  mean  gas-liquid  interface  (dimensionless, 
real ) 

dimensionless  mean  temperature  gradient  at  distance, 
XLR(N) , from  the  mean  gas-liquid  interface  and  on 
the  side  of  the  N,N+1  interface  nearest  the  mean 
gas-liquid  interface.  Note:  For  n even,  y=ya ; for 
n odd,  y=yfa 

(dimensionless,  real) 

distance  from  the  mean  position  of  the  gas-liquid 
interface  to  the  N,N+1  interface 
(cm,  real ) 

because,  deep  in  the  CSP,  the  exponentially  decaying 
nature  of  the  solution  requires  that  DSCRIM(N) 
approach  zero,  DSCRIM(N)  furnishes  an  indication  as 
to  whether  the  solution  in  this  region  has  proceeded 
to  a depth  sufficient  to  provide  a satisfactory 
steady-state  solution  (dimensionless,  real) 


N n index  of  laminae  from  the  gas-liquid  interface 

(n=0),  through  the  liquid-solid  interface  (n=l), 
through  the  first  oxidizer-to-binder  interface 
(n=2)  through  the  first  binder-to-oxidizer  interface 
(n=3),  and  so  on  to  as  far  into  the  CSP  as  r>= 1 0 1 , 
if  necessary  (dimensionless,  integer) 


XTD  - SQRT  ( KAPS/0MEGA)*YTD  (cm,  real) 


CAP0A 

na 

a 

u)«a 

r2 

(dimensionless,  real) 

CAP0B 

•b 

b = 

“Kb 

r 2 

(dimensionless,  real) 

CAP0S 

s 

s 

OJK  ^ 

— 

“ L. 

(dimensionless,  real) 
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NAMELIST/0UTPT  5 


3 


FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

N2 

n2 

index  of  the  laminae  from  the  deep-solid  side  of  the 
first  oxidizer  laminae  for  which  XLR  (N2=N2MXP1 ) 

XTD,  through  the  adjacent  overlying  binder  lamina 
for  which  XLR  (N2=N2MXP1 -1 ) > XTD,  through  succeswe 
laminae  of  oxidizer  and  binder  and,  finally,  of  velt 
layer  to  N2=0.  Note:  XLR (N2=N ) XLR(N) 

The  index  N2  is  used  in  the  step-by-step  calculation 
of  the  perturbed  solution,  whereas  N is  used  in  the 
step-by-step  calculation  of  the  steady-state  solution 
(dimensionless,  integer) 

N2MXP1 

n2max+1 

maximum  value  of  N2  determined  as  indicated  ii  cue 
definition  of  N2  (dimensionless,  integer' 

TAP  IN 

xn2  +1 
max 

normalized  temperature  perturbation  applied  in  the 
solid  phase  at  a distance  from  the  gas-condensed 
phase  interface  that  is  several  times  the  characteri- 
transient  thermal  depth  within  the  solid, 
(dimensionless,  complex) 

OTAf’IN 

9 ' n2  +1 
max 

g'  = (d-T-'-) 

9 n2  +1  dy  V , +1 

max  a max 

(dimensionless,  complex) 

XLR(N2) 

x 0 
n2 

distance  from  the  mean  position  of  the  gas-: -quid 
interface  to  the  N2,  N2+1  interface  (cm,  real, 

TAPLR(N2) 

T n2 

dimensionless  perturbed  temperature  at  the  \E, 

N2+1  interface  (dimensionless,  complex) 

DTAPLR (N2 ) 

9 ' n2 

first  derivative  of  dimensionless  perturbeo 
temperature  with  respect  to  y,  when  N2  is  ever, 
or  with  respect  to  y.  when  N2~is  odd.  at  :ne  . . 

N2+1  interface  (dimensionless,  complex) 

TAUOPS 

T 1 

y=o 

dimensionless  perturbed  temperature  at  the 
position  of  the  gas-liquid  interface,  i.e.,  at 
y=o  (dimensionless,  complex) 

GOPPS 

q ' 

y y=o 

first  derivative  of  dimensionless  perturtiec. 
temperature  with  respect  to  yfl  at  y=0+ 

(dimensionless,  complex) 

DGOPPS 

g ' 

y y=o 

second  derivative  of  dimensionless  perturbed 
temperature  with  respect  to  yQ  aty=0+ 

(dimensionless,  complex) 

RF 

R 

R = ( p tj-) , the  response  function 
(dimensionless,  complex) 
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FORTRAN 

NAME 

ALGEBRAIC 

SYMBOL 

DEFINITION 

NRP 

P' 

P 

normalized  perturbed  pressure  in  the  gas  phase 
(quasi-static  gas-phase  behavior  assumed) 
(dimensionless,  complex) 

YSWP 

>s 

w 

dimensionless  displacement  of  the  instantaneous 
gas-liquid  interface  with  respect  to  the  mean 
gas-liquid  interface,  i.e.,  with  respect  to  y=0; 
displacement  non-dimensional ized  on  the  basis  of 
bulk  CSP  properties 
(dimensionless,  complex) 

XWP 

x' 

w 

K cY  c 

, sw 

x = - 

w 

r 

(cm,  complex) 

NXSTP 

X*' 

X* 

perturbed  displacement  of  the  flame  front  with 
respect  to  the  mean  position  of  the  flame  front; 
normalized  with  respect  to  the  mean  position  of 
the  flame  front 
(dimensionless,  complex) 

XSTP 

X*  ' 

X*  = X*  • 

NYSSTP 

■*  ' 

>s 

V 

(cm,  complex) 

* 1 

y s = x*1 

ys*  ** 

(dimensionless,  complex) 

YSSTP 

y *' 

Js 

y * 1 = y * ■ £x- 
y S JS  X* 

(dimensionless,  complex) 

RFNMLT 

rnml 

response  function  under  the  assumption  that  no 
melt  layer  (NML)  exists  in  the  oxidizer  lamina, 
that  is  contiguous  with  the  gas  phase 
(dimensionless,  complex) 

NRPNM 

(PJ) 
p NML 

normalized  perturbed  pressure  in  the  gas  phase 
under  the  assumption  that  no  melt  layer  exists 
(dimensionless,  complex) 

YSWPNM 

y ' 

SwNML 

y'  under  the  assumption  that  no  melt  layer  exi 

sw 

(dimensionless , complex) 

XWPNM 

X' 

WNML 

x'  in  the  absence  of  a melt  layer  (cm,  complex) 
w 
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F0RTRAN 

ALGEBRAIC 

DEFINITION 

NAME 

SYMBOL 

NXSTPN 

y*  1 

* ) 

VNML 

X* 

x* 1 

— in  the  absence  of  a melt  layer 
X* 

(dimensionless,  complex) 

XSTPNM 

x* ' 

x NHL 

x*'  in  the  absence  of  a melt  layer 
(cm,  complex) 

VSSTPN 

y*' 

y*‘  in  the  absence  of  a melt  layer 

SNML 

s 

(dimensionless,  complex) 

c 

c 

lST-AD  prgc 
c 
c 
c 

C THIS  RUN  HAS  BEEN  MADE  WITH  PROGRAM  DECK  NO.  9A 

C 

C 

IMPLICIT  REAL  (K) 

COMMON /steady/  AMM.B.C ,CA .CB.CG,  CHI , CM.CS.D.DLT  YA6.DLTYBB ,DLT  YTP , 
IDE  LT AT .DELTAU.DNM.DNOM.DTAULR.DSCR IM ,E .ETA. FDML  S » JMAX  »KA  »KAPA , 
2KAPR.KAPS.KB.KF  LMHT .KMLTLR.KS.P3AR.PRXFAC.QB.0BDMLS.QLM.0MDMLS. 
3QS.QSDMLS  ,R »RBR » BOA . ROB . ROS • SMl A . SML  ATP  ,SMLB . T AULR » BUFFR 1 , TAumlT  , 
h TELM . THET AA. TM»  TOL. 1 WBAR . TZRO.VFA.wA , W AC . wb , XLR , BUFFR2 . XML  T . 

S A S TBAR . YSSTBR ,BUF  FR3, YABRML.Z.Z l , ZPK  » RBROLD , DLT RBR  » 1 T ERA, NS. NS max . 
oLFLAG.CAPOA.CAPOo.CAPOS.GWbRS.DGWBRS .QLDMLS, I HOMO 


BUFFRl.  BUFFR  2 * AND  BUFFR  3 ARE  REQUIRED  TO  BUFFER  THF  STORAGE 
LOCATIONS  JUST  PRECEDING  TAUMlT(I).  XMLT(l),  AND  YABRML(l), 

respectively,  this  procedupe  is  made  necessary  by  making  T A ) T ( 2 ) 

EQUIVALENT  TAUM.LT  < 1 ) • XMLTTI2),  TO  XMLT(l),  AND  Y APR  T ( 2 ) » TO 
Y ABRML ( i ) . 

C 

D I ml  NS  I ON  DSCRI M( 11C ) , DT  AULR ( 110)  » SM  L A ( A ) .TAULRI  110)  »T  AUML  T ( 1 1 0 ) » 
1TAJTC110)  ,WAC  I ■+  ) » XLR  1 110)  »XMlT  ( 1 1 0 > » X ML  T T ( 1 1 o ) - Y ABRML  (110). 

2YA3R T ( 1 10  I 

EQUIVALENCE  t TAUT  I 2 ) , I AUMl.T  II)).  ( XML  TT  ( 2 I .XML  T ( 1 ) I , 

1 ( Y AbRT ( „ ) , YABRML ( 1 ) ) 

EQUIVALENCE  ( 5WURS .GOfaRS ) » ( DGWB RS , DGOBRS  ) 

END 
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^ UN  '■  T U PRC  •. 


C0VM0N/UN5TJY/NPP , r AP 1 N,XTD. YTD.OMf  &A ,NEQ.KD,MXST ZP.KQ.LP , 
1DT'\PIN*TAPLR»DTA>’LR»N2MXP1»RF»NRP»YS»P*X«/P,nxSTP»XSTP»NYSSTP, 

2 YSSTP  * D2  T APR  » 02  T AP 1 » TAUOPS .GQPPS tOGOPPS* 

1RL  NMl  T * NRPNM  * YGWP'IM  , <aPnm  * NXSTPN  *XST  PNM  » YSSTPN 

COMI  L LX  NPP t T AP I N.DTAP I N»  T APLR*  DTAPL R .RF * NRP , Y S wP , X « P , NXS I P * X S 1 P . 
1 N Y S S T P » Y S ST  P * T A U C P S * G OPP P * DGQPP S , 

LRFNMt  T , NRPNM,  Y jWPNM.XkkPNM  »NXSTPN»XST  PNM,  YSSTPN 

D I Vt  NpICN  TAPLR  (110)  , t)TA°LR(  110  ) 


CUNT  R L PROVIDES  I ML  SEQUENCE  OF  CALLS  TO 

SUBROUTINES  THAT  IS  REQUIRED  TO  OBTAIN  THE  DESIRED  SOLUTION 
OF  THE  COMBUST luM  RESPONSE  PROBLEM. 


INCLUDE  CSTtAD.  LIST 
INCLUDE  CUNSTD  * LIST 


COM  INUE 
CALL  OVRFLWI3I 
CAL!  DATAIN 

If  (ITERA  .CO.  J .AND.  OMcGA  ,EQ.  0.)  GO  TO  70 
CALL  SLDFAZ 
CALL  MELTLR 

CALL  layers 

IF ( I T L R A .NE.  U ) GO  TO  60 
call  LAYRSP 
C A l L MLTLRP 
.all  glifp 

CALI  DTAOUT 

If  (ITERA  .to.  0 .AND.  OMEGA  .NE.  0.)  GO  TO  10 
C UN  T INUE 

0 


n n n o r r* . r>  n 


" 1 

C 

c 

SUBRUU  TINE  DATAIN 

c 

c subroutine  datain  loads  the  input  data  and  derives  certain  widely 
c used  parameters  from  these  data. 

c 

INCLUDE  CSTEAD.  LIST 
INCLUDE  cunstd.  list 
integer  KD.KQ 

DIMENSION  TNPPI 2 I . TTAPI N( 2 ) 

EQUIVALENCE  ( TNPP.NPP) , (TTAPIN.NRP) 


CAUT 10N***NAMEL 1ST / INPUT/  REQUIRES  THE  ENTRY  OF  NPP  AND  TAPIN  IN 
TERMS  OF  THE  NUMdER  PAIR.  MODULUS  (AS  A DECIMAL  FRACTION)  AND 
ARGUMENT  (AS  A PHASE  ANGLE  IN  DEGREES).  NPP  AND  TAPIN  ARE  THEN 
REDEFINED  BY  THEIR  CARTESIAN  REAL  AND  IMAGINARY  COMPONENTS  IN 

SUBROUTINE  DATAIN. 

L 

NAME  l I ST  / INPUT/CA.Cd.CG.XA.ICB.ROA  .ROB  «W  AC  ♦ SMLA  . E . R . PRX  FAC  . QS  . CD  . 
1QLM.KFLMHT .TFLM.TM.TZRO.PBAR.RBR .TOL . I T ER A , N5MAX . NPP , T AP I N , Y T D . 
20MLGA .NEQ.KD.MXSTLP.EP. I HOMO 
RE  AD  < 6 . INPUT ) 

I F ( OMEGA  .EQ.  0.)  RETURN 
DO  ID  1=1.  Id  1 
TAPLR ( I ) =0.0 
DT APi R ( I ) =0.0 
1J  CONTINUE 

I F < IDATA  .EQ.  1 i GO  TO  106 
idata=i 

W R I T E ( 6 . I NPUT ) 

W A = C . 

DNM= i . 

JM AX  = 0 


I F ( WAC ( 1 ) 

• G T • j • ) 

JM AX  = 1 

I F ( WAC ( Z ) 

• Or*  • j • ) 

UMAX  =2 

I F ( * A C ( 3 ) 

• G 1 • 0 • ) 

UMAX  = 3 

IF ( W A C ( A ) 

• G T ® (J  • ) 

JM  AX  = A 

I F ( UMAX  .EQ.  0!  WPITEI6.150) 

1 5 J FORMAT t //T6. -NO  AP  PARTICLES  OF  ANY  FINITE  DIAMETER  HAVE  BEEN  INCL 
1UDED  IN  THE  INPUT  DATA-//) 

IFIJVAX  .EQ.  0)  STOP 
DO  106  J=  1 . JM AX 
W A = W A +■  W AC  ! J ) 

DNM=DNM+WAC ( J ) / SML A ( J ) 

106  CONTINUE 

106  I F ( I HOMO  .EQ.  0)  GO  TO  10  7 
C 

C *HEN  I HOMO=  0 . CERTAIN  PERTINENT  PHYSICAL  AND  THERMAL  PROPERTIES  OF 

C THE  PROPELLANT  BINDER,  OXIDIZER.  AND  GASEOUS  PRODUCTS  SPECIFIED 

C IN  NAMELIST/INPUT/  ARE  GENERALLY  DISTINCT*  HOWEVER.  WHEN 

C IHOMO=l,  THESE  PROPERTIES  OF  THE  OXIDIZER  AND  GASEOUS  PRODUCTS 

C ARE  SET  EQUAL  TO  CORRESPONDING  PROPERTIES  OF  THE  OXIDIZER. 

C THUS.  SPECIFYING  IhOMO=1  IMPLIES  A HOMOGENEOUS  PROPELLANT. 

C 


CB  = C A 
CG  = C A 
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K6  = KA 
ROB=ROA 
107  CONTINUE 
>>  U - 1 • - 1*  A 

VEA=wA/ROA/(  wA/RuA  + hniB/ROB  ) 

SVl A TP  = SQR  T ( 2 • / 3 • )*SYLA( JMAX) 

SMLB-kn  A«vFA/ONM 
K S-K  A 

ROS~ROA*ROB/ ( ROA *Wb+ROB*W A ) 

CS=CA*WA+CB*WB 

KAPA-KA/ROA/CA 

KAPB=KB/ROB/CB 

<APS=KS/ROS/CS 

DL  TYTP  = SMLATP*RBR/NAPA 

CLTYAB=RBR*SMlA(1)/NAPA 

DLTY5B-RBR*SVl_B/KAPb 

2=ROS/ROA»CS/CA 

ZPR=ROS/ROB*CS/CB 

TNPP < 1 ) =REAL ( NPP ) *COS< A I MAGI NPP/  57.2  9578 ) ) 

TNPP  < 2 ) =REAL ( NPP ) * G INI  A I MAG  ( NPP/  57 .29578 ) ) 
TTAPIN(1I=REAL(TAP1N) *C0S ( A I MAG ( TAPINI/57. 29578) 
TT AP  IN ( 2 ) =REAL ( TAP  I N ) * S I N ( A I MAG ( TAPINI/57. 29578) 
lit  CONTINUE 

CAPOA=OMEGA*KAPA/RdR»*2 
CAPOB  = QMEGA*KAPB/Rt)W**2 
CAPOS=OMtGA*K APS /RPR* *2 
X TD=YTD*SQRT ( xAPS/uMEGA ) 

RE  TURN 


-7 


c 

c 

FUNCTION  TAUI TW.TZRO.T > 

C 

C FUNCTION  TAU  DETERMINES  A DlMLNS IONL  E SS  TEMPERATURE  THAT  IS  WlUtLY 

c used  throughout  this  progam. 

c 

T AU  = t t - t Z RO ) / ( T a - t zro ) 

RE  TURN 
END 


n n 


c 

c 

SUBROUTINE  SLDFAZ 

C 

FOR  A GIVEN  VALUE  OK  MEAN  BURNING  RATE,  RBR,  SUBROUTINE  SLDFAZ 
CAtCULATES  MEAN  wAlL  TEMPERATURE.  TwBAR. 

C 

INCLUDE  CSTEAD.  LIST 
INCLUDE  CUN ST  0.  LIST 

C 

NAME  l I ST  / TPOUT  1/  T Wt>AR  , QSDMLS  ,QM  JMi_S»  QBDMLS  , THE  T A A , CH  I » D * 3 * KML  TlR  ♦ 

I G L DML  S * F'DMLS  » GW  BRS  » DGwBRS 

C 

c 

lflag=o 
NS  = 1 
D A M = u . 

202  IFILELAG  .EQ.  1)  RETURN 

I F ( I T R A .LQ.  0 .OR.  NS  .EQ.  NSMAX ) LFlAG  = 1 

RBROl  D = R B R 

TWBAR=TM 

TRlRdR=U. 

DO  2UB  1=1.100 
OL  DTWB=TWBAR 
OLDRBR=TRLRBR 
DELTAT=.G1* ( TFLM-TM ) 

TWbAR=OLDTWB+DELTAT 

/SDMI S=WA*QS/CA/ ( T WBAR-TZRO) 

Q m DM t S=wA*QLM/CA/ ( TW8AR-TZRO) 

QLDMLS=QSDMLS 
THE',  AA  = E/R/TWBAR 
CMI=<TWBAR-TZRO)  /TWBAR 

TRlRBR  = SORT  ( 2.*NAPA»PRXFAC*QSDMi_S*EXP  1 - THE  T A A ) * 

1 ( 1 . -EXP ( -THET AA*LH I * ( J . - TAU( TWBAR, TZ  RO, TM ) > ) ) 

2/ ( THET AA*CHl* ( ( Z« ( 1 .+ ( QLDMLS+QMDMlS > *CA/CS ) 1**2 

3-1  < T A J<  TWBAR, TZRO, TM) * ( 1 . -Z ) -Z *0 MDML  S*C A/CS ) - 1 . ) * * 2 ) ) ) 

IFITRLRBR  .GT.  RER)  GO  TO  210 
2 . S CONTINUE 

WR ! TO ( o ,2U8  ) 

208  FORMAT ( ///To, -NUMBER  OF  ITERATIONS  FOR  RBR  HAS  REACHED  100  IN  SUBR 
10UT I NE  SLDFAZ-/// ) 

STOP 

2 lo  TWBAR=OLDTWB+ ( TWBAR-OLDT*B ) *( RBR -OLD RBR ) / ( TRLRBR-OLDRBR ) 

QSDML  S = WA*QS/CA/ ( TwBAR- TZRO) 
jMQMl S=WA«GLM/CA/( TWBAR- TZRO) 

QLDMLS=QSDMLS 

QBDMLS=WB*QB/CB/ ( TWbAR-TZRO) 

THET AA=E/R/TW3AR 

CHI =( TWBAR- TZRO) /TwBAR 

D = THE  T AA*CH I 

!3  = KAPA«PRXFAC*OSDMLS/RBR/RBR 
LMLTL  R = B»EXP( -THETAA) /D 

F [;M|_  S=  ( QLDMLS  + OMDMLS  ) *C  A / CS+Q6DM  L S*C  P / C S 
GWBP  c =-Z  * t l.  + (QLDMLS+QMDMLS)*CA/CS) 

DGWBRS=-GWBRS+B*EXP(-THETAA) 

*R I TE ( 8, TPOUT 1 ) 

CALL  GASFAZI $202! 

RETURN  A-73 

F ND 


c 

c 


SUBROU  I I NE  GASFAZ(i) 


GIVEN  RuR  AND  IWdAR,  SUBROUTINE  GASFAZ  CALCULATES  FLAME  STAND-OFT 
C DISTANCES,  YSsTSR  AND  X S T BAR • 

C 

INCLUDE  CSTEAD,  LIST 
INCLUDE  CUNSTD,  LIST 

3 00  YSSTBR=A10G((TAU(TaBAR»TZR0»TFlM>+EDMLS)/(1 . +FDML S > > 
XSTBAR-YSSTbR*NAP^ /RSR 
CALL  AMULTI  ($310) 

31o  RE  TURN1 
END 
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r 


non 


c 

c 

SUBROUTINE  AMULTI(S) 

SUBROUTINE  AMULTI  CALCULATES  A VIRTUAL  UNIMODAL  AP  PARTICLE 
DIAMETER  CORRESPONDING  TO  RdR  AND  VSSTBR. 

C 

INCLUDE  CSTEAD*  LIST 

boo  avm=KAPS*PBAR#YSSTBR/ ( KFLMHT*RBR*RBR ) 
ifilblag  .EQ.  1)  RLTURN 
r amol  d = dam 

DA.M=AMM-SMLA(  JMAX  ) 

I F ( ARS ( DAM-DAMOLD)  .GT.  ABS < ABS < DAM ) - ABS < DAMOL D ) ))  GO  TO  bbO 
DLTRBR=.01*RBR 
IF (DAM)blG*b20*b3u 
b 1 j RBR  = RBR-DLTRBR 
GO  TO  b4L) 

S2u  GO  TO  b40 
b 30  RBR  = RBR+DLTRBR 
GO  TO  b40 
b 4 - N b = N b + i 
RETURN  1 

bbO  RBR=RBROLD- ( RBR-RBROlD ) *DAMOLD/ ( DAM-DAMOLD I 
LFLAG= 1 
RETURN 
FND 


c 

c 


SUBROOT  I ME  MELTLR 

(. 

SUBROUTINE  MELTLR  DETlRMINBS  TcMPORAl  MEAN  TEMPERATURE  AND  THE 
C DERIVATIVE  OF  MIS  TEMPERATURE  WITH  RESPECT  TO  DIMENSIONLESS 

DISTANCE  As  r'UN'-TlONS  OF  DIMENSIONAL  DISTANCE  INTO  ThE  LIOUID 

c propellant  (measured  from  the  temporal  mlan  position  of  the 

c.  MELTING  SURFACE  OF  The  PROPELu  ant  ) . 

c 

INCLJDE  I STEAD,  l I ST 
INCLUDE  CUNSTD.  LIST 
COMMON /M/  M 
COMMON/N/  N 
COMMON /Ml  TINT.  P»NDEG 
L 
C 

DElTAU=.  1*(1.-'A  i UtiAR  , TZRO,  TM  ) ) 

TAUT ( 1 ) =1 . 

YABRT ( 1 ) =L. 

DO  S05  1=2,101 

TAUT (I) “TAUT l 1-1 ) DELTAU 

E T A = D * ( 1 , - TAU  T ( I ) ) 

CM-  .S+KMl TL  -0  . S * ( Z* ( l . + ( QLDMlS +QMDML S ) * C A / C S ) ) **2 
C=  t 1 .~2.*CM I/KMLTLR 
Z I =C*EX.P(  ETA  ) 

DNOM = 1 . +C-SOR  T I C**2+2. *C ) 

YAt?RT(I  ) = ALOG  ( ( I.  Zi-SQRT(Zl**2+2.*ZI  ) ) /DNOM  ) / t D*SQRT  ( 1»-2.*CM)  ) 
XMLTT t I > = KAPA* TAB  I I I) / RBR 

M=  I 

SOS  CONTINUt 

DIMENSION  P ( 1 J ) ,W( 200 ) 

CALL  P1  I T ( M, v ABRT . T AuT , -1 . ,6, .TRUE. . . TRUE. * . TRUE  * *P*NDEG» 
l r-  I GF  AC  , W ! 

NPs^NDEGf  3 

WR I TE ( 6 ,510 ) NDEG , SIGFAC  * (P( I ) , I =1 »NP3 ) 

S lu  FORMAT ( // TS  ,-NDEG  I 2 »T 17  » -S 1 GF  AC  = - » p6 • A /T  5 , = - 

i , T 24 , 3F  1 5-  . 11  / ( T 2 A , F 1 5 • 8 ) ) 

DO  SiO  I = 1 , M 

TAUF I T= ACPVAL ( P ,N.  EG, Y ABRT ( I ) ) 

TAUERR- T AUT ( I ) - TAUF I T 
S 30  CONTINUE 

TAULRI  1 >=TAUiMLT  (100) 

DT  AULR  ( 1 ) =-Z  * ( TAUM.LT  ( 100  ) +OMDMLS  *CA/  CS  ) 

XL  R ( 1 ) = Y AbRML ( 100 )*<APA/RBP 
D SCR  IM(  1 )=TAGLR  ( 1 ) <-0 TAULRI  1 ) 

M = 2 

RE  TURN 
END 
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c 

c 


SUFROUT  I ME  LAYERS 


• UBROUTINE  LAYERS  DETERMINES  TEMPORAL  MEAN  TEMPERATURE  AND  ThE 
DERIVATIVE  OE  THIS  TEMPERATURE  Vk  1 T H respect  TO  dimensionless 
distance  as  functions  of  dimensional  distance  into  the  solid 

PRUPELLANT  (MEASURtu  FROM  THE  TEMPORAL  MEAN  POSITION  OF  THE 
melting  surface  of  the  propellant ). 


INCLUDE  CSTlAD,  list 

include  cunstd.  list 

COMMON /N/  N 

60  1 IF(N  .EO.  2 ) GO  TO  610 
6 C 2 I F ( MOD ( N ♦ 2 ) .EQ.  0)  GO  TO  615 
606  )ELTAY=DlTYBB 

deltax=smlb 

'01  = 11  .-ZPR  ) *TAULR  ( N-l  ) 

GO  TO  630 
6 1 j DELTAY^DLTYTP 
Of  L TAX  = SMLA  TP 
C 1 = ( 1 . -2 ) »TAULR ( 1 ) 

GO  TO  630 
o 1 5 DElT ay =dltyab 

JELTAX  = SMLA ( 1 ) 

C 1 = < l.-Z I * T AULR < N-  1 > 

6 3 6 TAULR ( N )=C 1 - ( Cl -T AULR ( N-l  ) )*EXP(  - ( DELTAY  ) ) 

DT AULR  < N ) *C 1- T AULR ( N ) 

XLR( N ) =XLR( N-l ) +DELTAX 
DSCR IM ( N) = TAULR ( N ) +DT AULR ( N> 

I F ( MOD ( N * 2 ) .EQ.  0)  GO  TO  6540 
I TOL=u 
I N = 0 
I X T D = u 

640J  IF (ABSIABSIDSCRIM(N) )-ABS(DSCRIM(N-2 ) ) ) .EO.  Ab S ( DSCR I M ( N ) - 

1 DSCR I M ( N-2 ) ) .AND.  ABS ( DSCR I M( N ) ) .IT.  TOL  .AND.  ABS ( T AULR ( N ) ) 
2.LT.  TOL)  GO  TO  6410 
GO  TO  64?  0 
6 4 1 o I TOL  = 1 

WRI TE(6.6415) 

6^16  FORMAT ( //6X .-TOLERANCE  TESTS  FOR  A SATISFACTORY  STEADY-oTATE  SOLUT 
1ION  HAVE  BEEN  MET.-//) 

6420  I F ( N .LE.  IDO)  GO  TO  6430 
wRITEI 6.6425) 

642  J FORMAT ( //6X .-MORE  THAN  FIFTY  PAIR  OF  OXIDIZER  AND  BINDER  LAYERS  HA 


IVE  BEEN  TRAVERSED.-//) 

GO  TO  6440 
6430  I N = 1 

6440  IFiXLR(N-l)  .61.  X I D ) GO  TO  6450 
WRITE(6.6445) 

6445  FORMAT ( //6X .-NUMBER  OF  LAYERS  TRAVERSED  IS  INSUFFICIENT  TO  INSURE 
1' A! I 3FACTORY  ACCURACY  OF  THE  PERTURBED  SOLUTION.-//) 

GO  TO  6460 


6450 

l X TD= 1 

6 4 6 o 

CONT I NUE 

65  Oo 

IF ( l IOL  .EQ. 

1 ) 

GO 

TO  6510 

1 F { I N . E 0 . 1 I 

i GO 

TO 

6530 

IF  ( I X T D .EG. 

1 ) 

GO 

TO  6550 

65  10 

I F ( I N . EO.  1 1 

i GO 

TO 

6520 

A 
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GO  TO  bbbb 

6 S2u  1F1IXID  .to.  1)  GC  To  6 360 

6330  GO  TO  ASA'.; 

t,  b it -j  N = N + 1 

GO  TO  6^2 

|.«U  IF  ( ADS ( AR5 ( DSCR  I M ( N ) ) - ABS ( DSCR  I M ( N-2  ) ) ) .EG.  ADS < DSCR I M ( N ) - 
1DSCRI MIN-2)  ) ) WRl  I t<  5.660) 

bbJ  FORMAT < /6X, -DISCR IM I NANTS  N AND  N-2  HAVE.  THE  SAME  ALGEBAIO  SIGN.-) 
I F ( ABS  ( D.SCR  I M ( N ) ) .LT.  TOL  ) WRITCI6.665) 
bb3  FORMAT I/bX.-ABSID  C I M ( N ) ) MEETS  REQUIREMENTS  FOR  A SATISFACTORY  S 
10LUT ION.- ) 

IF (ADS! TAULR(N) ) .1  . TOL)  WRITE(6»670> 

Or-.  FORM  T</(  »-AB  ■ i •.  ) ) MEETS  REQUIREMENTS  FOR  A SATISFACTORY  SO 

lLUT I ON  * - ) 

WRI TL I 6 *6355 ) 

6553  FORMAT  (//6X*-T.Ii  C JRACY  OF  THIS  STEADY-STaTE  SOLUTION  MAY  BE  SAT 
1 1 SFAC  T0RYS-/6X * H WEVER  * IT  HAS  NOT  M ; T ALL  CONVERGENCE  CRITERIA. - 
2/oX . -RLFER  T 0 I it  P F CEDING  DIAGNOSTIC  REMARKS  TO  DETERMINE  WHICH 
3CRITERI A-/6X,-  iAv  E.H  MET  AND  WHICH  HAVE  MOT.-//) 

RETURN 

6 3 6 o WRITE!  6 * b 5 6 5 ) 

6363  FORM  r //ex.-  • ; FACT  ory  STADY-STatE  SOLUTION  has  been  OBTAINE 

ID.-// ) 

RETURN 

END 


c 

c 

SUBROUTINE.  LAYRSP 
C 

If,  SUBROUTINE  L A YRSP  * AN  INITIAL  DEPTH  WITHIN  THE  SOLID*  ADEQUATE 
TO  EXCEED  SOME  CHOSEN  MULTIPLE  OF  THERMAL  DEPTH  AND  TERMINATING 
UN  THAT  SURFACE  OF  A BINDER  LAYER  WHICH  IS  FARTHEST  FROM  THE 
BURNING  SURFACE*  IS  DETERMINED.  INT1AL  VALUES  OF  DIMENS lONLFSS 
TEMPERATE  AND  ITS  DERIVATIVE  WITH  RESPECT  TO  DIMENSIONLESS 
DISTANCE  ARE  THEN  SPECIFIED  ON  THE  FAR  SIDE  OF  THE  NEXT  UNDLRlY- 
i No  OXIDIZER  LAYER.  DIMENSIONLESS  TEMPERATURE  IS  ARBITRARILY 
ASSUMED.  ITS  DE RIVATE  IS  APPROXIMATED  FROM  A REQUIREMENT  THAT  IS 
STRICTLY  VALID  ONLY  FOR  A HOMOGENEOUS  SEM I - I NF I N I T E SLAB. 


INCLUDE  CSTEAD.  LIST 
INCLUDE  CUNSTD.  LIST 

COMMON /N2/N2 

, UMP  L t X LAMl,  L AM2  * Cl*  C2.  TAP,  GPM 


N 2 = 3 

16  01  IF ( XL  R ( N2 ) .GT.  X TD ) GO  TO  1605 
N 2 = N 2 + 2 
GO  TO  1601 

1606  N2MXP 1 =N2+ 1 
capo=capoa 

ft  1 = SORT ( ( SORT (l.  + 16.*CAPO**2)  + l.  1/2) 
131  - SORT  ( t SORT  ( 1 . + 16.*CAP0**2  ) -1  . ) / 2 ) 
LAM1=CMPLX( -0.5* ( 1 .+A 1 ) ,-0.5*Bl  ) 

DT  AH  I N*L AM  1 *T AP  I N 

N2=N2MXP1 

DElT  AY--DLTYAB 

T APL  R ( N2 1 =TAP  IN 

T AP=  TAP  IN 

DTAPi  R t N2 ) =DTAP  t N 

GPM-DT AP  I N 

GO  TO  1655 

1607  I F ( N 2 .EG.  2)  GO  TO  1630 

1609  I F ( MOD ( N2  * 2 ) .EQ.  0)  GO  TO  1620 

16 10  DELTAY=-DLTYBB 
CAPO=C APOB 
TAP-TAPLRIN2) 

GPM-ZPR/Z*DTAPLR ( N2 ) 

GO  TO  1655 

1620  OELTAY=-DLTYAB 
C APO  = C APCA 
t AP - TAPER ( N2  I 
GPM -Z/ZPR*DTAPLR ( N2  ) 

G'-  IS  165  5 
• * DClTAY=-DLTYTP 
ftPO=CAPOA 
T AP  ~ T APlR ( 2 ) 

D'  Z/ZPR*DTAPLR ( 2 ) 

-RT ( ( SORT (l.  + 16.»CAPO**2)  + l.  < / 2 1 
- T(  (SQRTI  1 .-*-16.*CAP0**2)-l  . /2  > 
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LAM1 =CMPLX ( -0.5*  < 1 .+A1 ) »-0.5*Bl > 

L AM2=CMPLX l -0.5* ( 1 .-A  1 ) ♦ + 0.5*B1 ) 

C 1 = 1 1 AM 2* TAP-GPM ) / ( LAM2-L AMI  I 
C 2 =- ( LAM1* TAP-GPM ) / ( L AM2-L AM 1 ) 

7 APLK(N2-1 ) = C 1 * E X P ( LAM] *DTL TA Y ) ♦ C2*E XP ( LAM2*DEL  T AY ) 
D1APlR(N2-1I=C1*LAM1«LXP(LAM1#OELTAY)+C2*LAM2*EXPILAM2*DELTAY) 
lb60  N2=N2- I 

1 F ( N 2 .EQ.  1)  RETURN 

GO  TO  1 fcO  7 

END 


SUBROUTINE  MLTLRP 


■ > I V E N TAULR(l)  AND  DTAULR(l).  SUBROUTINE  MLTLRP  INTEGRATES 
STEP-BY-STEP  FROM  THE  LIQUID-SOlID  INTERFACE  IN  THE  TOPMOST 
uXIDIZER  LAYER  TO  THE  GAS-LIQUID  INTERFACE  THAT  IS  THE  BURNING 
URFACE.  TAUOPS  AND  GCPPS  ARE  THUS  DETERMINED  FOR  THE  LIQUID 
IDE  OF  THE  BURNING  SURFACE. 

I NCLUDE  C STEAD  * LIST 
INCLUDE  CUNSTD.  LIST 

COMMON /M/  M 

COMMON /Ml.  TINT/  P.NDEG 

COMMON /N2 /N2 

D I PENSION  Pt 10) 


m.  tmegER  NEQ.KD, IFLAG.MXSTEP.KSTEP.KEMAX ,KQ 
peal  EP.HMINA.HMAXA.EMAX 
-t AL  D2TAP.DT ( ID. 1 ) 

-'I  At  YABRV.DEPVARl  2! 
m = - . I * YABR  TIM) 

HM  I N A=  • I #H 
MM  A*  A-  1 J.  * H 

Y ABRVF=U. 

DLL'=i'j.*H 

I 5 0 1 i.-l 

Y A BR  V = TApRT (M) 

0 E P V A R ( 1 ) = R E A L ( TAPLR  I 1 ) ) 

2  E ?VAR  ( 2 ) = R E A L I DyAPLR  I 1 ) > 

W R I T c (6.1 504  ) 

3  04  FORMA T * / / T 1 1 * -YABRV-, T26  ,-TAPR-.  T4 1 » -PT APR- . T 3 3 . -Up T AP R -/  ) 

GO  TO  1307 
1302  1.  = 2 

YABRV=YARRT l M ) 

PEP  V A R ( 1 ) = A I MAG ( TAPLR  t 1 ) ) 

DEPVAR ( 2 ) = A I MAG ( DTAPlR  I 1 ) ) 
wR I TE ( 6 . 1 506 ) 

13  06  FORMAT ( //l 1 1 . - Y A 8R V- . T 26 . - TAP I - » T4 1 , -DTAP I-, T35  *-D2  T AP I -/  I 
13  07  CALL  SVDOI NEQ. YABR V, DEPvAR ,D2 TAP . K01 , F P . I FL AG .H . HM I N A . HM AX  A , DF l 
1YALRVF.MXSTEP.KSTEP.XEMAX.EMAX.KQ.YN . DT ) 

GO  TO  20 
1 CALL  SVDQ1 

c GO  TO  I 30. 30. 40. 4 0.50.60.70.70).  [FLAG 

3 0 T.\.,F  I T = SCPVAL(P  .NDEG.YABRV) 

:3-kmltlr*d*d*expi-d*(i. -t aufi t i ) *de pvar < 1 ) 

02  T ALJ^-DEPVAR  ( 2 ) +T  3 

GO  TO  10 

4 J *Ri  7 El . 6.1540;  I FLAG  » H 

I 3uu  FORMA  M / T6.-I  FLAG  = -.  12.  T2  1 »-H  = -.  El  5. 6 ) 

43  WR I TE ( 6 . 1545 ! YABRV .DEPVAR (1) .DE PVAR ( 2 ). D2 T AP 
1343  FORMAT ( /T6.4E15. 6) 

IF (I  FLAG  .EQ.  3)  GO  TO  10 
IF  <i.  .EC.  1 ) GO  TO  1352 
IF  (L  * EQ.  2 ) GO  TO  1554 
6 Q W R I T E I 6 . 1 5 4 0 ) I F L A G » H 
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14BRV-/TH*  - Y ABRV  ~-*E15«6»T  16*-EP=-*E15«6  ) 
GO  TO  lu 

70  WR  I TE  < 6 * 1 540 ) IFLAG.  H 
GO  TO  10 

1552  TAPR=DEPVAR< 1 ) 

DT  APR=DEPVAR ( 2 ) 

02  T APR  = D2  T AP 
GO  TO  1502 
]55h  TAPi -UL  P V AR ( 1 ) 

D r AP 1-OEPVAR ( 2 ) 

02  1 Ai'  I -02  TAP 

r auoPg-cmplx < tapr . tap i > 

GOPPc,-CMPLX(DTAPR,OTAPI  ) 

DGGPPS  = CMPLX02T4°R»D2TAPI  ) 

N 2 =0 

RETURN 

END 
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SUHRuU f I N t GL IFP 


SUBROUTINE  6LIFP  DETERMINES  THE  RESPONSE  FUNCTION  AND  OTHER 
DEPENDENT  VAR  I AdLES  ASSOCIATED  WITH  THE  PERTURBED  SOLUTION. 

THE  EFFECT  OF  THE  CONDENSED-PHASE  ON  THESE  RESULTS  IS  DETERMINED 
nOL  ELY  BY  THE  RATIO.  GOPPS/TAUOPS.  which  APPEARS  IN  THE  FORMULA 
: UR  RESPONSr  FUNCTION, RF. 


If.  LUDE  CSTEAD.L1ST 
I N L ' DE  CUNSTD. L 1ST 


complex  K2 

NAMEL  I 5T/TPOUT3/K2 .V3.V5  » V6A.V6B .V7.RF0.K2NM.V5NM 

K2 -G  PPS/TAUOPS 

V3 = Z«< 1 .+ (GMDMLS+QLDMLS )*CA/CS) 

V 5 = ( 1.  + THETAA/2. )*CHI 

i-(D/2.  )*<  1.-2.* ( l.-TAUt TWBAR.TZRO.TM ) )*CHI  ) 

2 / ( L X P ( D * ( 1 . - T AU  t TWBAR.TZRO.TM)  ) ) ~1.  ) 

3-  1 • / ( V 3 - ( T AU  ( TW13AR,TZR0,TM)»(  1 . -Z > -Z *GMDMLS*CA/CS-1 . ) ) 

Vfe A = EXP ( YSSTBR ) - 1 . 

V6B= ( 1 .+FDMLS)* YSSTBR* EXP ( YSSTBR  » 

v7=Z*G6DMLS*CB/CS 

RFu=V6B/ ( 2. *V66+V6A/V5+ 1 . /V5 ) 

RF  =CAP0A*V6B/  ( CAPOA*(  2.  »V66+V6A/  V5-V3/2)+(0.tl.  ) *KMLTLR*D/Z 
l-( CAP0A/V5-( 0. , 1 . ) *V3 ) *K2/Z) 

NRP  = RF  *NPP 

Y SwP - ( 0 • , - 1 . ) *NRP/ CAPOS 
TWP-KAPS* YSWP/RBP 

NX  ST  P= ( 1. -CMP LX (0. ,-l./(CAPOS*YSSTBR  ) ) )*NRP-NPP 

XSTP=NXSTP*XSTBAR 

NYSSTP-NXSTP 

YSSTP=NYSSTP* YSSTBR 

I F ( I HOMO  .EQ.  0)  GO  TO  1650 

<2NM  = DTAP IN/TAP  IN 

CAPCNM=  1 . 

V 3 NM  = 1 . 

V5NM=THETAA*CHI 

RF NMLT  =CAP0A*V6B/ t CAPOA*( 2 .*V6B+ V6A/ V5NM-V3NM/Z ) + ( 0.  , 1 . )*CAPCNM/Z 
1 - ( C AP0A/V5NM- ( 0.  , 1 . )* V3NM  ) *K2NM/ Z ) 

NRPNM  = RFNML  T*NPP 

YSWPNM= (0. » 1. ) * NR PNM/ CAPOS 

XWPNM=KAPS*YSWPNM/PBP 

NX  S TPN  - ( 1 . -CMPLX ( 0.  ,-l . / ( CAPOS*Y  SSTBR  ) ) ) *NRPNM-NPP 
XS TPNM=NXSTPN*XSTBAR 

Y 3STPN  = NXSTPN« YSSTBR 
165''  CONTINUE 

WR  I TE ( 6 » T POUT  3 ) 

RETURN 
F ND 
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.Ut'ROU  1 I rsi  E D I AOul 


GUSROU  I I NL  DTAOUt  PROVIDES  A PR  I N TED  RECORD  OF  THE  RESULTS  THAT 
C HAVE  ACCUMULATED  DURING  THE  COURSE  OF  THE  RUN. 

C 

INCLUDE  CSTEAD.  LIjT 

include  cunstd.  LI  t 

c 

INTEGER  KD.KQ 

C 

COMMON / M/  M 
COMMON /N/  N 
COMMON/ N?/N2 
L 

NAME t I S I / I NPUT/CA.Cb.CG.KA.KB.ROA ,ROB .WAC .SML A , E , R , PRX FAC  .QS , QB , 
IQLM.RFLMHT , TFLM. I M , T Z RO . P B AR , RBR . TOL .ITERA.NSMAX.NPP.TAPIN.YTD. 

20MEGA , NEQ , KD  » MXS  TLP , EP  . I HOMO 

N AML  l I , I /OUTPT  1 / JMAX.wA.DNM.WB.  VFA,  SML AT P , DL T Y T P ♦ DL T Y AB * SMLB , 

10L TYDB.RS.ROS.CS.KAPA.XAPB.KAPS.  z.zpr 
LAME  i I :>  r / OU  T P T 2 / T HL  T A A , C H I . D.QSDMI  S . QBDMLS  , GMDML  S » FDMlS  , B . KML  TLR 
NAMFL I ST/OUTPT3/ T«UAR . YSSTBR.XSTBAR. AMM.TAUMLT .XMLT ,M, N.RBR. I TERA, 
INF . NbMAX ,LF LAG.GWBRS , DGwBR S » QLDM L S 
NAME l I 6 T/0UTPT4/  T AUlR . DT AULR , XL R , DS CR I M ♦ N . X TD ♦ C APOA , C APOB » C APOS 
NAME  L I SI /OOTPT5/N2 » N2MXP1 , TAP  I N . DT AP I N . XL R . T APLR . DT APL R » T AUOP S » 
lGOPPo.DGOPPS.RF.NRP. YoWP . XWP . NXS TP , X STP . N YSSTP , Y SSTP . 

2RFNML  I » .RPNM  * YSWPNM » X wPNM *NXSTPN  *XST  PNM.YSSTPN 
WRI Tt 1 6, I NPUT ) 

W R I T E ( b .OUTPT 1 ) 

WRI TEt  6 .OUTPT  2 ) 

WRITE (6, OUTPT 3) 

WR I TF ( 6 .OUTPT U ) 

IFIITLRA  .NE.  C)  RETURN 
WRITE  16  .OUTPTS ) 

RF TURN 
END 


n n n n n r\  n r>  n n d n r n n n n o n n n r o rn 


SUBROUT  I Nt  PF  I T < M.X , Y , S I G.NMAX  , SL fc  K N , r OUT RN . CHBB AS ♦ P . NF l T , S I GF A ; 
1 W > 

C.L. LAWSON.  JPL  « 1969  DEC  10 

C.L. LAWSON,  JPL,  1970  JAN  12  CALLING  SEQUENCE  CHANGED 

least  squares  polynomial  fit  to  DISCRETE  DATA. 

K NO.  OF  DATA  POINTS 

( X l 1 ) , I * 1 »M ) AoCISSAS  OF  DATA 
(YlI),I=l,M)  ORDINATES  OF  DATA 

(SIGtl  ),I  = 1,M)  STANDARD  DEVIATIONS  OF  DATA  Y() 

IF  SIG(l)  .LT.  0.,  THE  SUBR  WILL  FUNCTION  AS 
THOUGH  ALL  S1G(I)  ARE  EQUAL  TO  ABS ( S I G ( 1 ) ) 

NM Ax  NMAX  SPECIFIES  HIGHEST  DEGREE  POLYNOMIAL  TO 

BE  CONSIDERED. 


seekn 


COMTRN 


CHBBAS 


IF  .TRUE.  THE  SUBR  WILL  DETERMINE  OPTIMUM 

NFIT  NOT  EXCEEDING  NMAX. 

IF  .FALSE.  THE  SUBR  WILL  SET  NFIT  = NMAX 

UNLESS  THIS  PRODUCES  A NEAR-SINGULAR  PROBLEM,  IN 
WHICH  CASE  NFIT  WILL  BE  REDUCED. 

= .TRUE.  SUBR  WILL  COMPUTE  TRANSFORMATION  PARAMETERS. 

PCI)  AND  P ( 2 ) SO  THAT  THE  TRANSFORMED  VARIABLE 
RANGES  FROM  -1.  TO  + 1 . 

= .FALSE.  SUBR  WILL  USE  Pill  AND  P(2)  AS  SET  BY  USER • 

= .TRUE.  MEANS  USE  CHEBYSHEV  BASIS 
= .FALSE.  MEANS  USE  MONOMIAL  BASIS 


( P( J ) , J=1 .NMAX+3 ) P ( 1 ) AND  P ( 2 ) DEFINE  A TRANSFORMATION  OF  THE 

INDEPENDENT  VARIABLE  AS  FOLLOWS.. 

S = ( X - P( 1 ' ) / P < 2 ) 

<P(  1+3),  NMAX)  ARE  POLY  COEFFS  COMPUTED 

BY  THE  SUBR.  P ( I +3 ) IS  THE  COEFF  OF  S**I 

IF  MONOMIAL  BASIS  IS  USED  AND  OF  THE  I-TH 
DEGREE  CHFBY  POLY  IF  THE  CHEBY  BASIS  IS  USED. 

IF  NFIT  .LT.  NMAX  THE  COEFFS  PU+31  FOR 
I .GT.  NFIT  WIlL  BE  SET  TO  ZERO. 


S I GF  AC 


logical 

RLAl 


DEGREE  OF  POLY  AS  DETERMINED  BY  SUBROUTINE. 

FACTOR  BY  WHICH  THE  GIVEN  S I G ( ) VALUES  SHOULD 
BE  MULTIPLIED  TO  IMPROVE  CONSISTENCY  WITH  THE 
FIT.  SIGFAC  IS  THE  SQUARE  ROOT  OF  THE 

RATIO  OFITHE  SUM  OF  SQUARES  OF  RESIDUALS) 
TOIM-NF IT-1 ) . 

WORK.  I NG  SPACE.  MUST  BE  DIMENSIONED  AT  LEAST 
1 MAX ( 2*NMAX , , 0 ) )*(NMAX+2) 

SEEKN  * COMTRN,  CHBBAS 
X ( M ) , Y ( M. ) * S I G ( M .Pill, W(l) 
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. PF  Too  j up 
PF  T 00200 

i , j g 

PF  T 0C4UP 
PF  T OOBUO 
OF  TO 06 00 
PF  T007UO 
PF  T 00600 
PF  T 0090C 
PFT01 000 
PFT011CO 
PFT012UC 
PF  T 0 1 300 
PF  T 0 1 AGO 
DFT015u0 
PF  T 01600 
PF  T 0 1 7G0 
PF TO  16  00 
PF  To  1 900 
PF  T 02000 
PF  T 02 1 00 
PF  TO2200 
PFT023G0 
PF  T C 24UP 

PFT02500 
PFT02600 
Or T02700 
PFT02600 
PFT029U0 
PFT030C0 
PFT0310C 
pF  TO  3200 
P F TO 33 OP 
PFTp?400 
PF  T035n0 
PFTQ3600 
PFT03700 
PFT  03800 
PrT03900 
PFT0A0O0 
PF  TOR  1 00 
PFTC42"0 
PFT0A3C0 
oc  T0A4O0 
FF  T045U0 
PFT  046  00 
Pc  T 0 4 7 OC 
P r T O4  0UO 
PcTQ4900 
PF  T 03000 
PFT05100 
PFT  06200 
PFT0S300 
PF  T0S400 
PFT05S00 
PFT OS 6 00 
PFT  05  7U0 
PFT  03800 
PFT  05900 


n n 


f 


c 


0 


I. 

0 


t 


c 

l. 

0 

c 


c 

c 

c 

c 


EPS  = 2**(-2 7) 

DATA  EPS/  . 745E-8/ 

DATA  TOL/l.E-7/ 

DATA  GNL, TWO, HALF/1. EO. 2. EO* *5L0/,  ZERO/O. EO/ 

DEMME  At.)  (U  uE  A FUNCTION 
Al  l * J ) = w ( 1+(J-1)*IDIM) 

A ( 1 , J ) =W ( - I DI M + I +J* IDIM  ) 


1 VJ 


N=NMAX 
NP 1 =N+  1 
NP2=NP 1 + 1 

IF  INtLTtut OR • M • L E • 0 ) GO  TO  320 
1DIM=MAX0(2*NMAX,2U) 

S I GMA= AbS ( S I G ( 1 ) ) 

ZERO  FIRST  N + 2 LOCATIONS  OF  COLUMN  N+2 
THIS  IS  DONE  TO  CLEAN  UP  OUTPUT  IN  CASES  IN 
WHICH  M IS  LESS  THAN  N+2.  IT  IS  NOT 
NECESSARY  FOR  THE  COMPUTATION. 

DO  10  1=1, NP2 
A ( 1 . NP2 ) - ZERO 

COMPUTE  P ( 1 ) , P ( 2 ) IF  REQUESTED 


CHANGl  OF  INDEPENDENT  VARIABLE  IS  GIVEN  BY  S=(X-P( 1 ) ) /P(2) 

OR  X = P ( 1 ) + P i 2 ) *S 


IF  (COMTRN)  GO  TO  20 
IF  ( P ( 2 ) ) 60,32U»6u 
20  CONTINUE 
X M I N = X I 1 ) 

xmax=xmin 

IF  (M.Eu.  1 ) GO  TO  AC 
DO  30  1 =2  ,M 
XMIN=AM INI ( XMIN  t X(  I ! ) 
3^  XMAX=AMAX 1 ( XMAX t X ( I ) ) 
CONTINUE 

PI  I ) = I XMAX  + XMIN ) *HALF 
P I 2 ) = ( XMAX-XMIN ) *HALF 
IF  I P I 2 ) ) 60,50,60 
5u  P I 2 ) =ONE 


6o  CONTINUE 

CALu  BHSLR1 
I =1 


INITIALIZE  FOR  ACCUMULATION 
I w, I DIM.NP1 ,A( 1.NP2 ) * IDI M , 1 , I R ) 


ACCUMULATION  LOOP  BEGINS  HERE 

70  MEQ=MINU( IDIM-IR.M-I ) +1 
IF  (MEQ.LE.O)  GO  TO  150 
XMAX  = I R fMEO-1  N 
DO  14U  K.  = I R ♦ K MA X 
S= I X I I )-P(  1)  )/P(2) 

IF  I SIGI 1 ) ) 90*320*80 
8o  SIGMA=S1G( I > 

IF  (SIGMA)  320*320^90 
9u  CONTINUE 

A I Y , 1 ) =ONE/SIC.MA 
A I K *NP2 ) = Y ( I ) /S I GMA 


PF  T 06000 
PF  T 06 1 00 
PFT  06200 
PF  T 06300 
PF  T 06400 
PF  T 06500 
PF  T 06600 
PF  T 06  7 00 
PFT06800 
PFT06900 
PF  T07000 
PF  T 071 00 
PFT07200 
PF  T 07300 
PFT074G0 
PFT075G0 
PF  T 07600 
PF  T07700 
PF  T07800 
PF  T 07900 
PF  T 08000 
PF  T ns  1 00 
PF  T 06200 
PF  T 08300 
PF  T 08400 
PFT08500 
PFT08600 
PF  T 08700 
PF  T088O0 
PF  T 08900 
PF  T09000 
PF  T091O0 
PF  T 09200 
PF  T093G0 
PF  T 09400 
PFT09500 
PF  T 09600 
PFT  09700 
PF  T 09800 
PFT099U0 
PF  T 10G00 
PFT 10100 
PF  T 102U0 
PFT103U0 
PF  T 10400 
PF  T 1 0500 
PF  T ] 0600 
PFT 10700 
PFT10800 
PFT 10900 
Pc  T 1 1000 
PFT  1 1100 
PF  T 1 1200 
PF  T 1 1300 
PF  T 11400 
PFT 1 1500 
PFT 1 1600 
PFT 1 1700 
PF  T 11800 
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(N.LL.C)  GO  TO 
(CHBBAS)  GO  TO 


MONOMIAL  BASIS 


DO  I'jO  J = 2 » NP  1 
lOu  A ( »<•._))  = S*A(  K * J-  1 ) 
GO  TO  130 


CONT INUE 

A ( K.  .2  ) = S/ SIGMA 

IE  (N.LO.l)  GO  10  130 

FAC=TWO*S 

DO  120  J = 3 *NP  1 

A(K,J)=FAC*A(!C,J-1)-A(K,J-2> 


CHEb  Y StiE V BASIS 


13^  CONTI  NOE 
1 = 1 + 1 

i 4 J CONTINUE 

call  bhslr 2 

GO  TO  70 
ISO  CONT I NUE 


END  OF  ACCUMULATION  LOOP 


TEMPORARILY  COPY  RT-SIDE  VECTOR  INTO  P ( ) 


DO  160  1 = 1 ♦ NP 1 
16o  P ( I +2 ) =A ( I » NP2 ) 


USUALLY  IR  *ILL  EQUAL  NMAX+3.  IF  M .LE.  NMAX+l.OR  POSSIBLY  FOR 
OTHER  REASONS.  IR  WILL  BE  LESS  THAN  NMAX+3.  IN  THIS  CASE  SET  ROW 
IK  TO  ZERO  AND  REPLACE  IR  BY  IR+1.  THIS  SIMPLIFIES  LATER 

l.OcIC  BY  ASSURING  THAT  NF  I T W!lL  BE  .LE.  IP-3. 


IF  ( IR.GE. NMAX+3 ) GO  TO  180 
DO  170  J= 1 , NP  2 
17o  A ( I R * J ) = Z E R 0 
I R = I R + 1 
18^  CONT INUE 

COMPUTE  NORMS  OF  SUCCESSIVE  RESIDUAL  VECTORS 


1C  = IR-2 

At  K+  1.NP2  ) =ABS(  A(IC+1.NP2  ) ) 

IF  (N.Lt.O)  GO  TO  2CC 

CALL  SL2NRM  ( 2 * A ( K , NP2 ) , A ( K. NP2 ) ) 

< = <-! 

GO  TO  190 
CONTINUE 


DIVIDE  NORM  IN  ROW  I 
AND  LOCATE  SMALLEST  RESULT 
I R M 1 = I R- 1 
I M I N = 1 
T E MP  =M 

AM IN=A ( 1 »NP2 ) 

B I AS=AMIN»EPS 

DO  210  1=1. IRMi 

At  I • NP2 ) = A ( I . NP 2 ) /SQR T ( TEMP) 


BY  SORT ( M - ( I - 1 ) ) 


PF  T 1 : • n 
PrT) ?C0c 
PF  T 12100 
PFT 122-0 
PFT  1 23CC 
PF  T 12AO0 
PFT12SO0 
PFT 1 2600 
PFT  1 2’’  ‘0 
PFT  128UC 
PFT  12900 
PF  T 13000 
PE  T 1 3 1 00 
PFT1320C 
PFT  13300 
PFT  1 3400 
PF  T 1 3500 
PFT  1 3 6 l 0 
PF  T 1 3700 
PFT 1 3800 
PFT 13900 
PFT  140'-  ' 
PFT  14100 
T 142  00 
PFT 14300 
PFT  1 4400 
PFT 14500 
PFT ] 460n 
PFT 1470C 
PF  T 1 48u0 
PFT 1 4900 
PFT15C0C 
PF  T 1 5 1 OQ 
P r T . 5 2 0 ^ 
PFT  15300 
PFT 1 5AUC 
PFT 15500 
PFT156L0 
T 1 5700 
PF  T 1 5800 
Pc  T 59 
PFT 16000 

PF  T 1 6 1 00 
PFT 1621 
PF  T 1 fc  3uc 
PFT 164-0 
PF I 16500 
PCT 16600 
PF  T 1 670Q 
Pf  T 168uC 
PFT 1690C 

PFT  17000 
PFT  17100 
PFT  172l0 
PF  T l 7300 
PFT  17400 
PFT ] 75CC 
PF  T ] 7600 
PFT 17700 


A-S7 


n r . n n n n 


T L MP  = AMAX 1 ( TEMP -ONE .ONE ) 

PF  T 17800 

IF  ( A( I .NP2 ) .GE.AMIN)  GO  TO  210 

PFT] 7900 

AM  I N = A ( 1 .NP2 ) -3 I AS 

PFT 18000 

IM  IN  = I 

PFT18100 

2 lu 

CONT INUL 

PF  T 182U0 
PFT  18300 

OPTION  TO  USE  BEST  N OR  MAXIMUM  N 

PFT 18A00 
PFT  18500 

IF  ( SEE  KN  ) GO  TO  220 

pF  T 1 8600 

NF  T=M1 NU( NMAX , 1 R-3 ) 

PFT  1 8700 

GO  TO  230 

PFT  18800 

22o 

NF  T = I M I N-2 

PFT 18900 

230 

CONT I NUE 

PFT  19000 

NF'  T = MAXu  ( NET  .0  ) 

PFT19100 
PF  T 1 92  00 

TLST  THE  FIRST  NF T + 1 DIAG  ELTS  FOR  NEAR-SINGULARITY 

pF  T 1 9300 
PFT 19400 
PFT 19500 
PFT 19600 
PFT 19700 

N 2 = N F T + 1 

PFT  19800 

IF  IN2.LT .2 ) GO  TO  26u 

PFT 19900 

DO  2 A 0 1=2  ,N2 

PFT  20000 

CALL  SL2NRM  < I - 1 , A < 1 , I ) , T ) 

PF  T 20100 

IF  ( ABS< A( I ,1 ) ) .LE.TOL»T)  GO  TO  250 

PFT  2020c 

24U 

CONT INUE 

PF  T2 0300 

GO  TO  260 

PFT20A00 

2 5 U 

NF T= 1-2 

PF  T 2 0500 

260 

CONTINUE 

PF  T2  0600 

NF  1 T=NF  T 

PF  T 2 0700 
PFT  20800 

SOLVE  FOR  COEFFS  FOR  DEGREE  NF T 

PFT209U0 
PF  T 2 1000 

S I GFAC= A ( NF Tf2.NP2 ) 

PF  T 2 1 100 

NFP  1=NF T + 1 

PFT2 1200 

DO  29..  I =NFP  1 ,1.-2 

PFT2  1300 

IP1=1+1 

PFT2  1A00 

T=P( 1+2 ) 

PFT 2 1500 

IF  (I  .EU.NFP1  ) GO  10  280 

PF  T 2 1600 

DO  27 U J=IP1,NFP1 

PFT21700 

2 7 J 

T = T - A ( I , J ) *P ( J + 2 ) 

PF  T 2 1 8 00 

28  j 

P(  I +2  > = T / A ( 1,1) 

PFT21900 

29w 

CONT INUE 

PFT22C00 

IF  ( NET  .FQ. NMAX  ) GO  TO  310 

PFT22100 

N 1 =NF  T + 2 

PFT  22200 

N2  = NMAX  + 1 

PFT223G0 

DO  3‘tu  I =N1  ,N2 

PFT22A00 

UJ 

o 

c 

P ( I +2 ) =2ERO 

PFT22500 

3 lu 

CONT INUE 

PFT  22600 

RETURN 

PF  T 2 2700 

*«♦***  ERROR  TERMINATION  ****** 

PFT2280O 

32 -1 

CONTINUE 

PFT  2 2900 

WRITE  (6,330)  M,SIG< 1 ) . N » COMTRN . P < 2 > .SIGMA 

PFT23000 

NF I T =- 1 

PF  T2  3100 

RETURN 

PF  T232O0 

3 10  FORMAT  U6H0BAD  VALUES  INPUT  TO  PFIT.  NO  FIT  WILL  BE  OONE . » 1 2X , 1HPF T 2 3300 
1M,7X.6hSIG<1)  « 9X  * -+HNMAX  , 7 X , 6HCOM TRN , 9 X , 4HP ( 2 ) , 8X , 5HS IGMA/48X , I 13  *EPF  T23AOO 
213.8*1  13.L13.2E1 3.5/)  PFT2  3500 

END  PF  T 2 3600 
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CIBFTC  BmSiR.  LIST  BASIC  StQ.  LEAST  SQUARES 

WITH 

H.H. 

TRANS. 

30 

APR 

6BBHSL 

1 

10 

C 

BHSiR.  S.P.  BASIL  SEQ.  LEAST  SQUARES 

WITH 

H.H. 

Trans. 

30 

APR 

6 t Si. 

20 

c 

R.  HANSON.  J.P.L. 

PhSL 

3P 

c 

bhSl 

*.0 

c 

FNIRY  POINTS  BH5l_  R 1 . BHSL  R 2 . . 

BHSL 

SO 

c 

bhSl 

60 

c 

* * * « 

BHSL 

TO 

SUBROUTINE  BHSLR1  ( A , NDA . N . B . NOB . NB. R I ) 

bhSl 

60 

c 

* * * * 

BHSL 

90 

INTEGER  SMI »RI . NDA . N , NDB * NB 

BHSL 

100 

c 

BHSL 

110 

c 

START  PLACING  EQUS.  OF  CONO.  AND  RT.  HAND  SIDES 

I N ROW 

INDEXED 

BHSL 

120 

c 

WITH  R I AND  PROCEED  DOWNWARD  FOR  MEQ  E 

QUS. 

BHSI. 

130 

c 

BhSl 

I AO 

c 

THE  SPACE  A ( I * J ) * ( I = 1.....RI-1  ,J  = 1 

-1  ) 

IS  FREE 

AND 

Rhsl 

ISO 

c 

NEVER  REFERENCED  AGAIN  3Y  THIS  PROGRAM 

AS  PI 

INCREASES 

TOWARD  N 

+ 2 .rHS'_ 

160 

c 

BHSL 

17- 

c 

NC  w USE  THE  SECOND  ENTRY  BHSLR2. 

3 H 5 L 

130 

c 

• • 

BHSL 

190 

REAL  A(NDA.N)  »B(NDb,NB)  , UP. ZERO 

BHSL 

200 

DATA  ZERO/O. EO/ 

BHSL 

210 

R I - 1 

BHSL 

220 

SMI  =0 

Bhsl 

230 

RETURN 

BhSl 

2A0 

c 

Bhsl 

230 

c 

PRIMARY  ENTRY  TO  PACK  ARRAY  TO  UPPER 

TR I ANGULAR 

FORM. 

BhSL 

260 

c 

• • 

BHSL 

270 

c 

BHSL 

230 

FNTRY  BHSLR2(MEQ,RI ) 

BHSL 

290 

c 

# * ** 

BhSl 

300 

c 

• • 

BHSL 

310 

c 

MEv.  new  PQUS.  AND  RT.  HAND  SIDES  ENTER 

• 

BHSL 

3 2 0 

c 

BHSL 

330 

IE  (MEQ.LE.U)  RETURN 

bhsl 

3 AO 

• • 

bhsl 

330 

Q 

NC  TRANSFORMATIONS  NEEDED. 

BHSL 

360 

c 

BHSL 

370 

SN  1 =SM 1 +VEG 

BHSL 

380 

M = R 1 +MEQ- 1 

nHSL 

390 

NT=M I No ( M * N ) 

BHSL 

AuC 

DO  2o  I P = 1 .NT 

BHSL 

4 1 0 ' 

IE  ( IP.EO.M)  GO  TO  20 

BrSL 

A20 

L-MAXUI o.RI-IP-  I ) 

BHSL 

4 30 

CALL  AHLR1  ( A{ I . 1P1  .1 .UP. IP-1 tL. M,A(  1 . 

IP+1  ) . 

l.NDA.N- IP  I 

nnSL 

AAC 

c 

• • 

BhSl 

a;  o 

c 

COMPUTE  TRANSFORMATION  AND  APPLY  TO  THF  REMAINING  COLUMNS. 

HhSL 

A60 

c 

hHSL 

A70 

CALL  AHLR3  l A ( 1 . I P ) . 1 » UP . I P- 1 , L ♦ M , B . 1 . 

NDB .NR ) 

BHSL 

AHO 

c 

• • 

BHSL 

A90 

APPLY  TRANSFORMAT  IONS  TO  B.IF  PRESENT. 

BhSL 

300 

c 

dhSL 

310 

L=L+ IP+1 

BHSI 

320 

DO  K I -L  »M 

BHSL 

530 

10 

A ( I . IP i -ZERO 

BHSL 

5 AO 

c 

• • 

BHSL 

330 

c 

CLEAR  AREA  JUST  MADE  IMPLICITLY  ZERO. 

BHSL 

560 

c 

BHSL 

570 

2m 

COM  INUE 

HHSL 

580 

R I -MI  NO (SMI  . N+ 1 ) + 1 

BHSL 

59o 

\-89 


IF  (M.LE.N)  RETURN 
IF  (NB.LE.O)  RETURN 
DO  30  J=1 *N3 

CALL  SL2NRM  ( M-  N * B ( N -t- 1 » J ) » B ( N + 1 * J > ) 


PACK  lengths  of  rt.  hand  sides  outside  the  col 
TO  SINGLE  LOCATIONS  EACH. 


ADVANlL  NEw  origin  of  row 
L = N + 2 

IF(L.GT.M)  RETURN 
DO  A.  J= 1 *No 
DO  AO  I =L *M 
B ( I » J ) -ZERO 
RETURN 


PHSL 
BHSL 
BHSL 
BHSL 
BHSL 

SPACE  OF  A BHSL 

BHSL 

BHSL 

BHSL 

TO  START  EUUS.  OF  CONDITION  AND  RT . S I DESBHSL 

BHSL 
HHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL 
BHSL. 


IF  A SOLUTION  IS  DESIRED  WITH  FURTHER  ACCUMULATION  INTENDED* 

SAVE  THE  UPPER  TRIANGULAR  PART  OF  THE  A ARRAY  AND  THE  FIRST 
N+i  SOWS  OF  THE  b ARRAY.  FOLLOWING  CALCULATION  OF  THE  SOLUTION* 

RESTGRL  THESE  DATA  AND  ZERO  THE  PART  OF  A BELOW  THE  MAIN 
DIAGONAL  TOGETHER  WITH  THE  (N+11ST  ROW.  SEQ.  ACCUMULATION  MAY  THENBHSL 
CONTINUE  AS  BEFORE.  THE  NUMBER  OF  ROWS  IN  THE  PROCESSED  MATRIX  BHSL 
TO  BE  SOLVED  WILL  BE  R I - 1 . BHSL 

BHSL 

END  BHSL 


6C0 
610 
620 
630 
6 Ao 
660 
660 
670 
6BQ 
690 
700 
710 
720 
730 
740 
760 
760 
770 
730 
790 
600 
6 10 
620 
630 
640 
860 
860 


HBTFLR  Li  ST  BASIC  H.H.  TRANS.  FROM  THE  LEFT.  S.P. 
tNTRY  POINTS.. 

AHLR1*  AHL R2  * AHLR3 
II  FEB  1970 


# * 

SUBROUTINE  AHLR1  (U.NDU.UP.L1.L2  * M » P * IRA.  ICA.NCOLS) 
» * 

real  uindu.mi ,up.p< d .cl.zero 
double  precision  sm.dzfro.beta 
LOGICAL  SRCLAV.N1GTM.CMPU 
DATA  DZERO/G.DO/ 

DATA  ZERO/O. EO/ 

• • 

DLMNE  DATA  FOR  LITERALLY  NAMED  PROGRAM  CONSTANTS. 

REAL  AV.SR.AM.SGN 
AV ( DuM ) = ABS ( DUM ) 

SR  < DUM  ) =SQR  T ( D'JM  ) 

AM (D1 .02 ) r AMAX I ( D1 ,D2 ) 

SGMD1.D?  ) =SJGN  (D1  ,D2  ) 

• • 

DFINL  FUNCTIONS  USED  IN  THIS  SUBROUTINE. 


CMPU=. TRUE. 

SRCL AV=. FALSE. 

• * 

ENTIRE  RAW  U VECTOR  IN  THE  FIRST  ROW  OF  U. 

GO  TO  lo 

# » 

ENTRY  AHLR2 (U ,N DU, UP, SRCL ,L1 ,L2  , M.P,  I RA  , I C A , NCOLS ) 

** 

RFAL  SRCL 
CMPu- . TRUE  . 

SRCLAV=.TRuE. 

• • 

RAW  U VECTOR  IN  THE  FIRST  ROW  OF  IJ.  LENGTH  OF  U VECTOR 
AVAILABLE  IN  SRCL. 

GO  TO  10 

« * 

ENTRY  AHL  R3 (U.N DU, UP, LI, L2.M.P, IRA, ICA.NCOLS) 

# * 

CMPU= • h ALSE  . 

srclav=.false. 

. . 

U TRANSFORMATION  CALCULATED  AND  IN  U.  PIVOT  ELEMENT  IS 

Is  IF  U 1 .LT .0. OR.L2.LT. O.OR.M.LE.O ) PF  T URN 

. « 

RETURN  IF  TRANSFORMATION  IS  ABSENT  OR  NOT  WELL-DEFINED. 


N 1 =1.  1 +L2  + 2 
N 1GTM*N1.GT .M 
LIP  1=1 1 + 1 

IF  (.NOT. CMPU)  GO  TO  SC 
Cl.  = S R C L 


10  JEN  6 ' ■ 

K T ROP20 r 
HT ROC  300 
HT  ROO^CE 
HTR006U0 
HTR0070P 
HTR008C0 
HTR  009 CP 

HTR010U0 
HT  RO  I i ' 0 
HTR01200 
HTRO I 3G0 
HT  RO 1 A JO 
HTRC  1 SGC 
HT  R 0 1 1 0 
HTRO1700 
HTR018C0 
HTRO  19^0 
HTRQ200C 
HTR021 JO 
HT  RO  2200 
HTRC23G' 
HTRC2A-'0 
HTRQ25C0 

HTR026C0 

HTR027G0 

HTR028Cn 

H T R 0 2 9 J C 

j-jjPp-apjQo 

HTR03100 

HTR032CC 


HTR038;  0 
HTR039U0 
IS  H , Ro<*  0 

HTRC4K0 
HTR0A2UC 

pT  Rp430p 
HTR04i.Cn 

HTR04S00 
HT  R 04  6>j0 
HTR047  'p 
H E R ( . u h p 


H ! Rp4S  0 
IN  UP  NO  W « H T R p 3 ' C . 

HI  ROS I up 

HTRCS3GP 
HT  R0S40p 
HTROSSv.0 
HTROShL  p 
HI R0S7u0 
HTRpSSl P 
H IROS9UO 
HTR06CLP 
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n r\ 


I F ( SRCLAV ) GO  TO  AO 

CL  =U ( 1 * L 1 P n 

IF  (CL. LT. ZERO)  CL=-CL 
IF  (N1GTM)  GO  TO  A O 
DO  20  J=N1.M 
20  CL  = AM ( AV ( U ( l.J)  ) .CL) 

IF  ( L . LF .ZERO)  RETURN 
SM=(U(  1 .1  1P1 ) /CL  1**2 
DO  To  J = N 1 * M 
3i_  SM=SM+  ( U(  1 , J) /CL  ) **2 
CL=Cl  *SR( SM ) 

• • 

COMPUTE  tNGTH  OF  u VECTOR  IF  SRCuAV  = .FALSE.. 

A«j  IF  ( CL  . LE  .ZERO)  RETURN 
CL -- SON (CL .U( 1 « L 1 P 1 ) ) 

UP=U ( 1 .L1P1 ) -CL 
Ut  1 .1  IP  1 ) =CL 

SO  IF  (NCOLS.LE.O)  return 

• • 

RETURN  if  matrix  p is  absent. 

c 

BETA --U ( 1 » L 1 P 1 ) *UP 

IF  (HE T A.tQ.DZERO)  RETURN 

. . 

IF  B I T A • f Q. ZERO  » NO  TRANSFORMATION  IS  NECESSARY. 

DO  9.  J-l.NCOLS 
C 

APP|_  r HU  • SEHOLOE  ' T RANSFORMAT  ION  (I  - 2*U*U**<T>)  TO  P 

C FROM  ThE  LEFT. 


• oL  R UF  R.aS  CELLS  OF  P ARE  APART. 

IC/  NUMBER  OF  It  lLS  COLUMNS  OF  P ARE  APART. 

. (LI  ZEROS).  U P * 0 * . . • * (L2  ZEROS),  U ( L1+L2+2  ) , . . . ,U ( M ) ) 

LI  • 1 . 1 ; » L 2 . i F . 0 . 

C 

I I=ICAM  J-l) 

I 2 = I l+l  1MRA+1 
I A= I 1 + ( Nl-1 ) * IRA  + 1 
SM  = P( I 2 ) * UP 
IF  (N1GTM)  GO  TO  70 
I 3 r I A 

DO  60  I -N 1 » M 
SM=SM+P (13) *U (1*1) 

60  I 3*1 3+ IRA 

70  IE  ( SM.EO.DZERO)  GO  TO  90 

C . . 

TRANSFORMA T ION  LFAvES  that  column  OF  P alone. 

SMsSM/BETA 
P(  I 2 ) = P ( 1 2 ) -UP*  SM 
IF  (NIGTM)  GO  TO  9 ' 

I 3 = 1 A 

DO  30  I =N1.M 
PI  l ] ) = P ( I i ) -SM*U ( I , I ) 

BU  I 3 = I :)+  i R A 


HT  R061O0 
NT  R06200 
HT  R06300 
HTR06AU0 
HTR06500 
HTR06600 
HTR06700 
H T R 068 ('0 
HT  R0690C 
HTR07000 
HTR07100 
HTR07200 
H T R 0 7 3 0 0 
HT  R07AC0 
HTR075  00 
HTR07600 
HTR07700 
MT  RO  7 6 00 
HTRQ7900 
HTR08000 
HTR0810O 
HTR08200 
HTR08300 
H T R 0 8 A 00 
HT  ROS  500 
HTR08600 
^trostuo 
HTR08800 
HTR08900 
HTR09000 
HTR091U0 
HT  R09200 
HTR09300 
HTR09+C0 
HTR09500 
HTR09600 
h T R 0 9 7 G 0 
H*  RC9S0O 
H'R09900 
UTR 1 00 OC 
HT  P 1 0 100 
HTR 10200 
VITR1C300 
hTRICAOO 
HTR 1 0500 
HTR10600 
HTR 10700 
H • R 10800 
H T R i 05  00 
HTR 1 1000 
HTR 1 11U0 
HTR1 1200 
HTR 1 1300 
HTR 1 1 AGO 
HTR1 1500 
HTR1  1600 
HTR  1 1700 
HTR 1 1800 
HTR1 1900 
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AD-A060  045 


JET  PROPULSION  LAB  PASADENA  CALIF  F/G  19/1 

COMBUSTION  RESPONSE  MODELING  FOR  COMPOSITE  SOLID  PROPELLANTS. <U> 


JUN  78  N S COHEN#  J M BOWYER 
JPL-PUB -78-59 


F04611-76-X-0050 

NL 


UNCLASSIFIED 


AFRPL-TR-78-39 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  Of  STANDARDS  1963-.< 


v-  • • 

c BASIC  STEP  OF  HOUSEHOLDER  TRANSFORMATION. 

C 

9k.  CONTINUE 

c « . 

C RETURN  WITH  TRANSFORMATION  APPLIED  FROM  THE  LEFT. 

C 

RL  TURN 
END 


HT  R 

H7R12I00 
HTR1 22U0 
HTR123O0 
HTR1 2400 
HTRI2500 
HTR] 2600 
HTR12700 
HTR120oO 
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SUbROUT 1 NL  SL2NRM  (N.U.G)  L2N00100 

MODIFIED  UY  C J DEVINE  3/21/72  TO  ALLOW  ADDRESS  OF  .GT.  16  BITS  FOR  ARCS 
IN  CALLING  SEO  DUMMY  DIMENSION  ARRAY  G(l), 

* AS  DEFINED  . THIS  ALLOWS  PROGRAM  TO  REFERENCE  LOCATIONS  IN  EXT.  CORE 
E NR  2 . S.P.  AND  D.P.  L2  NORM  FOR  ARRAY  BASED  VECTORS  22  APR  68L2N00200 
11  FEd  197D  L2N00300 

REAL  U( 1 ) . G(l)  L2N00AU0 

F 1 = 0 . E 0 L2N005C0 

F2=u.Eu  L2N00600 

IF  (N.LE.o)  GO  TO  20  L2N007G0 

DO  l 'J  J-l  *N  L2N00800 

10  F 1-AMAX 1 ( F 1 ,ABS < U( J ) ) ) L2N00900 

IF  (F1.NF.0.)  GO  TO  30  L2N01000 

20  G ( 1)  -0.  ,'Cu  L2 NO  1100 

RETURN  L2  NO  12  00 

30  DO  AO  J - 1 * N L 2 No  1 300 

T = U ( J ) / F 1 L 2 NO  1 AGO 

AG  F2=F2+T*T  L2N01S00 

G ( 1 ) =F 1 * SQR  T ( F2  ) L2N01600 

RETURN  L2N01700 

FND  L2N018C0 
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FUNCTION  SCPVAL  IP, NDEGP. X) 


C. L. LAWSON, JPL.  1969  DEC  17  MODIFIED  1973  JULY  24 
yOL IF 1ED  1974  NOV  19 

EVALUATE  A polynomial  OF  DEGREE  NDEGP  GIVEN  transformation 
PARAMETERS,  P(l)  AND  P(2),  AND  COEFFICIENTS  RELATIVE  TO  THE 
CML3YSHLV  BASIS. 

NDEGP  DEGREE  OF  POLYNOMIAL 

( P ( I ! , I = 1 ,NDEGP+  3 ) PARAMETERS  DEFINING  THE  POLYNOMIAL 
X INPUT  ARGUMENT 

THE  POL  Y NOM I AL-S  VALUE  AT  X IS  DEFINED  AS  FOLLOWS. 

S * f X — P t 1 ) ) / P ( 2 ) 

SCPVAL  = SUM  OF  P( I + 3)*T< I , S > FOR  I =0 , 1 , . . . NDEGP 

WHERE  T ( I , S ) DENOTES  THE  CHEBYSHEV 
POLYNOMIAL  OF  DEGREE  I EVALUATED  AT  S 

REAL  P< 1 ) ,W ( 3 ) »S,$2»  X 

w ( 1 ) = 0 • 

w ( 2 ) =0. 

TRANSFORM  X TO  S 

S=(X-P( 1) >/P(2) 

S 2 = S + S 
J=NDEGP+3 

EVALUATE  POLYNOMIAL  USING  RECURSION 

1C  IFIJ  .LE.  3)  GO  TO  20 

W ( 3 ) = W ( 2 ) 

W<  2 > =W(  1 > 

W(  1 ) = ( S 2 * W ( 2 ) -W ( 3 ) ) +P ( J ) 

J = J - 1 
GO  TO  10 

20  SCPVAL=(S*W( 1)-W(2 > )+P( 3) 

RETURN 

END 


A-95 


r>  n r\  r 


SUBKOUr  1NE  SVDQ  ( nf:q,  t , y , f.nd.ep  , i fl ag,h *hmi  n a.  UMAX  a ,delt  » 
TF  INAL  i MX  STEP  .K  i,  IEP  . XFMAX.EMAX  .ICQ*  YN  ,DT  ) 


c 

c 

c 

c 

c 

c 


VARIABLE  ORDER  INTEGRATION  SUBROUTINE  FOR  THF 
SOLUTION  OF  ORDINARY  DIFFERENTIAL  EQUATIONS 

ANAL T S I ■ AND  CODING  BY  FRED  T.  KROGH,  AT  THE 
LABORATORY*  PASADENA,  CALIF.  APRIL  1*  1969. 
THIS  SLBROUTINF  DESIGNED  FDR  THE  IBM  7C9A  AND 


JFT  PROPULSION 
THE  UNIVAC  1108. 


AT  THE  LMD  01  T>U  LISTING  INSTRUCTIONS  ARE  GIVEN  FOR  REMOVING 
,OMl  FEATURE'S  AM  'OR  ADDING  OTHERS.  THE  GSTOP  FEATURE  IS 
EXPLAINED  NEAR  Th  EN  OF  THF  LISTING. 


C 

c 

c 


vA'iAr.U-S  IN  TH  AL  l INC.  SEQUENCE  HAVE  THE  FOLLOWING  TYPES. 
INTEGER  NEG»-D(  • IFlAG,MXSTEP,KSTEP,K'EMAX,XO(  1 ) 

REAL  ril),?P  1 ' ,HMINA*HMAxA,FMAX*DT ( 10*1  ) 

REAL  T , Y i 1 ) 1 . DE  l T * T F I NAL  * Y N ( 1 ) 


PARAMETERS  WHICH 
SVDQ  ARE  NEQ  * 
TFINA 

SVDQ  IS  USED  ONLY 
ML!  M 

THE  PARAMETERS  ME 
VALUES  TO  F (ONCE 

after  getting  5 r a 

THE  INTEGRATION  I 
HE  -OLLOlvING  PAR 
INTEGRATION  AND  A 
"HANG- - BY  THE  u. 


. . T BE  ASSIGNED  VALUES  BEFORE  CALLING 
, Y,  KD»  H,  HMINA,  HMAXA.  DELT, 

l ♦ AND  MXSTEP. 

•Si  THE  INITIAL  ENTRY.  ALL  OTHER 
Y ALL  INC  SVDQ 1 . IN  ADDITION  TO 
.HONED  ABOVE  THE  USER  MUST  ASSIGN 
PER  STEP  INITIALLY,  AND  TWICE  PER  STEP 
TED)  AND  EP  (EITHER  INITIALLY,  OR  DURING 
A RELATIVE  ERROR  TEST  IS  USED). 

METER  GIVE  ADDITIONAL  INFORMATION  ABOUT 
USE  FOR  >T  OR  AGE  • HEY  SHOULD  NOT  RE 
R.  I FLAG,KSTEP  »K£MAX ♦ EMAX  »KG» YN*  AND  DT, 


THE 


AN  X AMPLE  01  HO,. 

ONE 

c 

BELOW. 

CALL  SVDQ (NEQ,, ». 

, DT  ) 

c 

GO  FO  YYY 

c 

XXX  CALL  SVDQ 1 

MIGHT  SET  UP  THE  CALLS  TO  SVDQ  IS  GIVEN 


TO  SVDQ  wITH 


YYY  GO  TO  (N1,N2,...,N8),  I FLAG 

AFTER  THE  INITIAL  CALL,  RETURN 
GC  TO  XXX 

If  N . ERROR  i\S  BEEN  MADE,  I FLAG  WILL  EQUAL  1 AFTER  THE  INITIAL 
:ALL  INDICA!  1G  1 | DERIVATIVES  ARE  TO  BF  COMPUTED. 


c 

L THl  JSAGE  OF  m .ARJABLES  is  given  below. 

c 

C NEQ-NUMoFR  OF  Eli  TIONS  (INPUT) 

C 

T-INDFPFMID  NT  VAP  A hi  E (INITIAL  VALUE  SUPPLIED  BY  THF  USER) 


R NT  VAl  II  DEPENDENT  VARIABLE.  THE  INITIAL 
VA|  UE  OF  Y MUSI  BE  SPECIFIED  BY  THE  USER  BEFORE 
|1  • . THE  DIMENSION  OF  Y MUST  BF 

r as  the  sum  of  the  orders  of 

IF1!.  I ’ IFF  EH: NT  I I l QUA  T I ON  j WHICH  ARE  BEING 
iNTt  ■ / T ■ D»  II  Wt  LET  K.0 ( I > DENOTE  THE  ORDER 
(r  Tie  l-TH  DIFf  ERI  MTIAL  EQUATION,  THEN  Y(J) 
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SVDQ0001 
S VDG0002 
SVDC0003 
SVDQOOOA 
SVDOOOG5 
SVDQOOOfc 
SVDQ0007 
SVDQ0C08 
SV DOC 009 
SVDQOOiO 
SVDOOG1 1 
SVDQ0012 
SVDQ0013 
SVDQ001 A 
SVD0001S 
SVDQOO 16 
SVDQOO 1 7 
SVDQOO 18 
SVDQOO 19 
SVDQC020 
SVDQOO 21 
SVDQ0022 
SVDQ0023 
SVDQ002A 
JVD0002S 
SVDQ0026 
SVDOG027 
SVDQ0C28 
SVDQ0029 
SVDQ0030 
SVDQ0031 
SVDQOO 3 2 
SVDC0033 
SVDQ 00 3 A 
SVDG003S 
SVDC0036 
SVDQ0037 
SVD00036 
SVDQ0039 
SVOQOOAC 
SVDOOOA1 
SVDQOOA? 
SVDQ0CA3 
S VDQOOAA 
SVDQ 00 AS 
S V D Q 0 C A 6 
SVDQOO A 7 
SVDQ00A8 
SVDQ00A9 
SVDQ0050 
SVOQOOS1 
SVDQ00S2 
SVDQ00S3 
SVDQOOSA 
SVDQOOE5 
SVDQ00S6 
i VDQOOS  7 
SVDQ00S8 
SVDQOO  39 


nrir.rinnoonr;r  r r o r o r ■ r>  r>  o r'  o r>  p>  rs  r.  n r»  r>  r>  r\  o r-  r~  n ri  o n r~-  o rs  o r>  n r n o 


C 

c 

c 


c 

c 

c 

c 


15  THU  K-TH  DERIVATIVE  OF  THE  L-TH  COMPONENT. 

WHERE  L IS  THE  SMALLEST  INTEGER  FOR  WHICH 
KP(l)+KD<2>+...+KD<L) .GE.J  AND  K= KD ( L ) + J- 1- ( KD ( 1 I 
+ KP(2)  + ...+KD(L)  ),  J*1»2....»(KDU  ) + KD ( 2 ) + . . . + KU ( NEQ ) ). 

(FOR  EXAMPLE.  FOR  THE  SYSTEM  F(l)='jPP.  F(2)=VPP.  WHERE  P 
DENOTES  A PRIME.  Y(1)=U.  Y(2)='JP.  V ( 3 ) = V * Y(A)=VP.) 

F ( 1 ) =K.D(  I )-TH  DERIVATIVE  OF  THE  1-TH  COMPONENT  wITH  RESPECT 
TO  T,  1=1.2.. ...NEQ.  THE  USER  MUST  PROVIDE 
THE  CODE  WHICH  COMPLIES  F GIVEN  Y AND  T. 

KD  G I V E 5 THE  ORDER  OF  THE  DIFFERENTIAL  EQUATIONS  IN  THE 
SYSTEM.  KD  MUST  BE  LESS  THAN  OR  EQUAL  TO  A. 

(FOR  DIFFERENTIAL  EQUATIONS  WITH  DIFFERENT  ORDtRS  SE1 
KO.LT.u.  IF  THIS  IS  DONE  IT  IS  ASSUMED  THAT  KD  IS  A VECTOR 
AND  THAT  ABStKD(I))  GIVES  THE  ORDER  OF  THE  I-TH  EQUATION.) 

EP  IS  A PARAMETER  USED  TO  CONTROL  THE  LOCAL  ERROR. 

IF  FP  IS  POSITIVE  THE  LOCAL  ERROR  IS  KEPT  LESS 
THAN  LP  IN  ALL  COMPONENTS  OF  THE  DIFE.  EQ . 

(THE  ESTIMATED  LOCAL  ERROR  IS  KEPT  LESS  THAN  EP  IN 
THE  (KD(I)-ll-ST  DERIVATIVE  OF  THE  I-TH  COMPONENT.  THUS 
FUR  EQUATIONS  WITH  ORDER  GREATER  THAN  ONE.  THE  ERROR 
IN  A DERIVATIVE  IS  ESTIMATED.  IN  THIS  CASE  THE  VALUE  OF 
E D REQUIRED  TO  OBTAIN  A GIVEN  ACCURACY  IN  ThE  DEPENDENT 
VARIABLE  DEPENDS  ON  THE  SCALING.) 

IF  EP.LT.O,  THEN  IT  IS  ASSUMED  THAT  IP 

IS  A vector,  let  k bl  the  smallest  value 
OF  I FOR  WHICH  LPm.GE.O.  FOR  I.LT.K 
THE  LOCAL  ERROR  CONTROL  IS  BASED  ON 
ABSlEP(I)).  AND  FOR  I.GE.K  IT  IS  RASED  ON 
EP ( K ) • IF  ONE  WANTS  A RELATIVE  ERROR  TEST  — 

F OR  EXAMPLE.  THE  LOCAL  ERROR  IS  TO  BE  KEPT 

LESS  THAN  C*P  wHERE  C IS  A CONSTANT 

AND  P IS  A POSITIVE  FUNCTION  OF  T AND  Y. 

THEN  ONE  SHOULD  SET  EP=C*P  WHEN  IFL«G=1. 

IF  E P = 0 AND  HMAX A.NE.O . I FLAG  IS  SET  EQUAL  8.  IF  EP  = 0 AND  hMAX A = f 
NC  ERROR  TESTS  ARE  PF RFORMFD  AND  The  ORDER! S)  AND  STEPSIZE  ARE 
NO:  CHANGED.  THIS  OPTION  SHOULD  NOT  be  USED  if  KO<n=l  FOR  any  i. 

IFlAG  IS  USED  FOR  COMMUNICATION  BETWEEN  THE  I N T EGR A TOR 
AND  THE  PROGRAM  WHICH  CALLS  IT.  THE  VALUE 
OF  IFLAG  SHOULD  NOT  BE  CHANGED  BY  THE  USER. 

THE  FOLLOWING  VALUES  OF  IFLAG  HAVE  THE  FOLLOWING  MFAN1NGS. 

=1  THE  VALUE  OF  Y FOR  THE  CURRENT  STEP  HAS  BEEN 

PREDICTED.  THE  USER  SHOULD  COMPUTE  F AND  CALL  SVDQ1. 

IF  A RELATIVE  ERROR  TEST  IS  USED  THE  NFW  VALUE 
OF  EP  SHOULD  ALSO  BE  COMPUTED  HERE. 

=2  THE  VALUE  OF  Y FOR  THE  CURRENT  STEP  HAS  BEEN 

CORRECTED.  TrlE  UStR  SHOULD  COMPUTE  F AND  CALL  SVDQ1  • 

=3  AN  OUTPUT  POINT  HAS  BEEN  REACHED  (SEE  DESCRIPTION 
OF  BELT).  PRINT  RESULTS  AND  CALL  SVDQ1. 

= A T = TF I NAL  IF  SVDQ1  IS  CALLED  WITH  T = T F I NA L AND 

IFLAG=A.  IFLAG  IS  SET  EQUAL  TO  8.  IF  THE  VALUE  OF 
TF I NAL  IS  CHANGED  THE  INTEGRATION  WILL  CONTINUE. 

=5  KSTEP=K50UT  (SEE  Tht  DESCRIPTION  OF  MXSTEP). 

=6  LMAx.GT • • 1 AND  IT  APPEARS  TO  THE  SUBROUTINE  THAT 

REDUCING  U wILL  NOT  HELP  BECAUSE  OF  ROUND-OFF  FRROR. 

IF  This  occurs  a larger  value  of  FP  (OR  of  abs< EP< KEMAX ) ) IF 


■ VDQOOuO 

: vDocom 
SVDQOC' (»2 
SVDQ006 3 
SVDQ006A 
SVDQOOOS 
SVDQ0066 
SVDG0067 
SV DO 00 66 
SvDQOOt  D 
SVDQ0070 
S VDQOO  7 1 
S VDQOO  7 2 
SVD00073 
SVDQOC  7 A 
SVDC0075 
SVDGCO  7 6 
SVDQ0077 
SVDQ0076 
S VDQOO 79 

SVDQ0060 
SVDQOOb 1 

r VDQC 
SVDQOOB  3 
S VDCOCfa A 
SVDQOC  6 b 
SVDOO  .00 
S VDQ008  7 
S V DQ  00  6 8 
SVDQOCoU 
SVDQOC Ob 
S VDQOO 9 1 
SVDQOCC 

svdqoor:- 

S VDQOO 9 a 
SVDQCCRS 
SVDQOC ?6 
OVOCCOR'' 
SVDOC ~ 96 
SVDQOC 5 9 
SVDOC  1 . o 
S VDQO  j.  0 . 
s V D Q C 1 0 «- 
SV DQ01C3 
SVDQ010A 
SVDOO]  O1- 
SV  SC  06 
SVDOO*  7 
SV DQ Ci 06 
SVDGC1C9 
svDoo : io 
SVDCOl  1 1 
SVDO0112 
SVDOO 11 3 
SVDOC 1 1 A 

‘ V,  .Oils 
SVDQ01  lb 
SVDQ01 1 7 
5VDQ01  18 
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EP  IS  A VI  : 
INCREASED.  TO’.1 


SHOULD 
HALL  A 


! t- 


PROBABl Y 13 E USED.  IK  IP  IS  NOT 
STEPS  1 ZE  IS  LIABLE  TO  BE  USED.  (WE  HAV 
FOUND  THAT  PLACING  IP  WITH  32. *FMAX*FP  WORKS  QUITE  WELL.) 

If. CREASING  IP  IN  THIS  wAy  WILl  NOT  DEGRADE  THE  ACCURACY. 
HHvEvER  If  THt  NATURE  OF  THE  PROBLEM  CHANGES  IT  MAY  PAY  TO 
SMALLER  - I OF  EP  LATER  IN  ThE  INTEGRATION* 

A .(Hi .LT.HMInA.  to  continue  with  the  current 
.il  HM INA.LE.ABS(H)  and  call  SVDQI. 

R I )R  HAS  JUST  HAlVF-D  H ONE  MAY  CONTINUE 
i .1  Pl.lZt  BY  SIMPLY  CALLING  SVDUl.  (SUCH 
RISKY  WITHOUT  A CAREFUL  ANALYSIS  OF  THE 
T iE  STEPSIZE  HAS  NOT  JUST  BEEN  HALVED 
MAY  BE  DUE  TO  THE  USER  INCREASING  THE 
R TO  HAVING  TOO  SMALL  AN  H AT  THE  END 
PHASE.)  THE  INTEGRATION  WILL  CONTINUE 
V -L'JE  OF  H AND  A RETURN  TO  THE  USER  WITH 
1AD’.  ON  EVERY  STEP  LNTlL  AoS  ( H ) . GE  * HM  I NA. 

IN  THE  CAlLING  SEQUENCE.  IF  SVDQI 
L A G = 8 THE  PROGRAM  IS  STOPPED. 


.UE  OF  H* 
liiE  INTI 
/.IT -I  TWICE 
A \C  T I ON  ! 

S I T » A I ION. ) 

AB  (H).LT.HM  N 
VALUE  OF  HM I N 
OF  THt  STAR  I I N - 
CURREN 

i flag® 7 will  be. 
illegal  par am  t 
is  called  w i 


H=CUKF L 
VAL  JL 

1.  THL 
THU 

2.  IF 

l r « 

HOC 


DIR 
..  IF 
VAL 


NT 


*LUt 


NO  1 


HM  I N ■ 


UMAX. 


DELT 

OUT 

TIM 

: U 

Uol 

ON 

INI 

1NT 


V- 

F OR  !i, 

I N TLGR 
S THE  If 
IT  DOES 
s.  6ECAJS" 

T Cr  A NEGf 
LARGE  HA' 
• l * D £ L T . L E . 

■ i IFlAG-'J. 
EC  I I ON  OF 
DELT  =H*  * 

WILL  B 


A F T i 


Al 


IE  CTEPSIZF.  IN  SELECTING  THE  INITIAL 
R SHOULD  REMEMBER  THE  FOLLOWING — 

PA  LE  OF  CHANGING  h QUITE  QUICKLY  AND 
H ICE  IS  NOT  CRITICAL. 

FAD  TO  PROBLEMS  IN  COMPUTING  T HE  DERIVATIVES 
OVERFLOW  OR  TRYING  TO  EXTRAC1  THF  SQUARE 
:VC  NUMBER).  IT  IS  BETTER  TO  CHOOSE  H MUCH 
!CH  TOO  SM'VLL. 

ITIALLY,  AN  IMMEDIATE  RETURN  IS  MADE 
ICN  OF  H IS  WHAT  DETERMINES  THF 
CORA r ION. 

. A NGNNEGATIVE  INTEGER  HEN  OUTPUT 

■ THOUT  doing  AN  INTERPOLATION. 


R GET 

■ 

IF  ABS'H) 
THE  USER 


STARTED.  AND  WH 
S(H)  IS  COMPARED 
• HM I NA  CONTROL  IS 
H I FL  AG® 7. 


iNEVER  h 

with  HMINA. 
RETURNED  TO 


AN 
t R 
ER 

TL 


BEF 


THE  ST. 
DOING  ' 

nables  1 

T IS  DE 
CONTROL 
THE  IM 
WITH  IF 
I NT EGRi 
POL  AT  I OS 
POL A TED 
THAT  A 
l TAKIN 


IR 


I A' 


T I 


RE 

T 


Z IS  NOT  DOU3LED  IE 

lD  make  ABS  ( H I .G  T .HMAXA 

L c R TO  SPECIFY  THE  POINTS  WHERE 

LET  T OUT =DE  L T * THE  VALUE  OF  T THF  LAST 
C TURNED  TO  THE  USER  WITH  1F|_AG=3.  (INITIALLY 
ALOE  OF  T.)  CONTROL  IS  RETURNED  TO  THE 
WHENEVER  T=TOUT.  IF  TOUT  DOES  NOT  FALL 
STEP.  OUTPUT  VALUES  ARE  OBTAINED  «Y 
HE  FIRST  STEP  THAT  ( T-TOLT ) »H.GT .0 . 

. FOR  JOT  i Y AND  F ARE  COMPUTED. 

N WITH  1 1 LAG  = 3 IS  ALWAYS  MADE 
FIRST  step.  ) 


T F INAL  CONTPOl 
T PEACHES  TFINAl 
STEP  VALUES  AT 


RETURNED  TO  THF  USER  WITH  IFLAG=A  WHEN 
II  TFINAL  DOES  NOT  FALL  ON  AN  INTEGRATION 
NAL  ARE  OBTAINED  BY  EXTRAPOLATION. 


MXSTEF  ON  THE  i’ll  I AL  ENTRY,  AND  ON  ENTRIES 
WIT  1 Z. LI.IFLAj.LT. 6 KSOUT  IS  SFT  EQUAL  TO 


5VDG01 IV 
LSVDQOl ^0 
SVDQ0I21 
SVDQ0122 
SVDQ0I23 
SVOQO i 2 A 
SVDQ0I25 
SVDQ0126 
SVDQ0127 
SVDOCl 28 
SVDQ0129 
SVDQ0130 
SVDQ0131 
SVDQ0132 
S VDQO i 3 3 
SVDQO 1 34 
SVDQ0135 
SVDQO 1 36 
SVDQ01 37 
SVJG0136 
SVDGC139 
SVDQO  I '*0 
S V QUO 1 A i 
SVDQO 1 A 2 
SVDQ01A3 
SVDQO i AA 
SVD001A5 
SVDQO 1 A6 
I V 0 - 

SVDGOl A8 
SVDQO- hS 
SVDQ01 SO 
S VDGC 131 
SVGQCiS: 

sv 

S VDQO 1 P - 
SVDQ013S 
SVDQ0136 
S VDQC 1 3 7 
SVDCC 1 So 
VDQ015 
SVDQO 160 
SVDG0161 
SVD  0161 
SV  500163 
SVDQ0I6A 
SVQQ0165 
SVDQO 166 
SVDQO 167 
SVDGOiod 
SVDQO 1 69 
SVDQO 170 
SVDQ0171 
SVDQO 172 
SVQQOl 73 
SVDQO 1 7 A 
SVDQ0175 
SVDQO 1 76 
SVDQOl 77 
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KGTEP+MXS  TEP.  AT  THE  f ND  OF  EACH  STEP  K.ST  FP  IS  1 NCREMEN  T F 1) 

AND  COMPARED  WITH  KSOUT.  IF  K 5 T FP. GE . KSOUT  CONTROL  15 
PF  TURNED  TO  THE  USER  WITH  IFlAG  = S.  (THUS  IF  DELT  IS 
SUFFICIENTLY  LARGE,  CONTROL  WILl  BE  RF  TURNED  TO  THE  USER 
WITH  1 FLAG=5  EVERY  MXSTEP  STEPS.) 

K s TEP=NUMBER  OF  INTEGRATION  STEPS  TAKEN  (COMPUTED 
BY  THE  INTEGRATOR.) 

KEY, AX=  INDEX  OF  COMPONENT  RESPONSIBLE  FOR  THE 
VALUE  OF  EM  a x (SEE  BELOW). 

EMAX  = LARGcST  VALUE  IN  ANY  COMPONENT  OF  (ESTIMATED  ERROR ) / EP 
ORDINARILY  THE  oTEPSIZE  IS  HALVED  IF  EMAX.GT..1.  WITH  A 
RFCENT  HISTORY  OF  lOCAL  ROUND-OFF  PROBLEMS  VALUES  OF  EMAX  A 
LARGE  AS  1 ARE  PERMITTED.  THE  STEPSIZE  IS  NOT  HALVED  ON  ANY 
STEP  THAT  ROUND  OFF  ERROR  APPEARS  TO  BE  LIMITING  THE  PRECISION. 

KQ< I ) =H IGHEST  ORDER  DIFFERENCE  USED  IN  INTEGRATING 
T-E  I-TH  EQUATION.  (COMPUTED  BY  THE  INTEGRATOR) 

Y N = A VECTOR  rtITH  t HE  DIMENSION  OF  Y USED  TO  STORE 

THE  VALUE  OF  Y AT  THE  END  OF  EACH  INTEGRATION  STEP. 

D T = AN  ARRAY  WITH  DIMENSION  DT(IO.NEQ)  USED  TO 
STORE  THE  DIFFERENCE  TABLE. 


REAL  TOUT ,TL  , TPD, TPDl * T PD2  * H H , F A C 

DIMENSION  DD( 12 ) ,D( 11 ) ,GAM< 10 » A ) »GAS (1C)*PT(11),FAC(3) 

EQU I VALENCE  t DD< 2) ,D( 1 ) ) 

DATA  KMAXO/4/ 

KMAXO  IS  THE  MAXIMUM  ORDER  DIFFERENTIAL  EQUATION 
T IS  SUBROUTINE  WILL  INTEGRATE. 

DATA  FAC/1. EOt.SE'j*. 166666 66 7E0/ 

FAC  (J)  = l/ (FACTORIAL  J),  J=  1 , 2 , . . . , MA  X ( 2 , K.MAxO-1  ) 

EAT  A K.QMAX/9/ 

c .MAX  GIVES  THE  MAXIMUM  ORDER. 

THLRL  IS  LITTLE  POINT  IN  HAVING  KQMAX  MUCH  BIGGER  THAN  THE  NUMofcR 

F decimal  digits  in  the  mantissa. 

If  F UMAX  IS  SET  LESS  THAN  6,  DT , D*  AND  PT  SHOULD  BE  DIMENSIONED 
a IF  K UMAX  = 6 . 

\j. ■ T A R N D * K.  B I T 2/6  .UE-R  ,56/ 

Rf.’D  IS  APPROXIMATELY  2**(3-B)  WHERE  B IS 
T Hf  NUMBER  OF  BITS  IN  THE  MANTISSA. 

KBIT  2 = 2*B  + 2 WHERE  6 IS  THE  NUMBER  OF  BITS  IN  THE  MANTISSA. 

IF  T Hf  DERIVATIVES  ARE  NOT  COMPUTED  TO  THE  ACCURACY  EXPECTED 
FROM  THE  WORD  LENGTH  OF  THE  COMPUTER  (FOR  EXAMPLE  BECAUSE  OF 
CANCELLATION  PROBLEMS  OR  TABULAR  DATA),  THEN  THESE  CONSTANTS 
CAN  bE  CHANGED  TO  REFLECT  THE  NUMBER  OF  BITS  WHICH  ARE 
SIGNIFICANT  IN  THE  COMPijILD  DERIVATIVES.  (THIS  IS  NOT  NECESSARY. 
BUT  IS  WISE  IF  THE  ACCURACY  REQUESTED  IS  DIFFICULT  TO  OBTAIN 
BECAUSE  THE  DERIVATIVES  HAVt  SO  EF.W  SIGNIFICANT  DIGITS.) 

DATA  P 1 , P u ] , P 2 5 , P 3E 1 / . 1 , . 0 1 , . 2 b » 3 . / 


SVDQ01 
S v'DQO  i TV 
SVDQOiSr 
SVD0016 . 
SVDGO i 6 2 
SVDGOi d 3 
SVDQOl 6 A 
SVDOC  166 
GVDQ01B6 

SVDQOioT 

SVDOOiBfe 
SVDuOlSV 
S VDQO 1 90 
SVDQOl 9 1 
SVDQC192 
SVDOC 193 
SVDC019A 
SVDQ019S 
SVDOC 196 
SVDQC197 
SvDQCl96 
SVDOC 19S 
S V D 0 0 2 0( 
SV000201 
SVDQOt 02 
SVDQ02C3 
SVDQOt  O'* 
SVDQOtC1* 
SVDQ0206 
SVDQ020T 
SVDQ C 2 
SVDOC 2 09 
SVDQOt ^ v 
^ V DC  02  i 1 
SVDQ02  12 

SVDQOt  * z 
SVDGC2  i*. 
SVDC02  Is 


SVDQ 02  17 
S VDQO 2 i r 
->V  DO 02  . S 
SVDQ0220 

f'»  S/  \j  cW  C <■  *-  * 
S V !~’  . * ? 

S V . ' . . A 
SV  G ? < t 1 
S VDQ<  . • 
SVDQ 022 ~ 
S V D 2 2 r> 
SVDOC  22<~ 
SVDGO 2 -r 
SVOQCt 3 1 
SV0QO2  32 
SVDGO 2 3 3 
SVDQOt  ->a 
SVDQOt  36 
SVDQ0236 
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THE.  AtitVE  DAI  A DTA1LM.N1  CONTAINS  VARIOUS  CONSENTS 
JSLD  IN  THE  SUBROUTINE. 

DATA  PT/  1 . ,2. ,4. ,8.  . 16. , 32. ,64. , 128.  ,256.  .512. » 102 A. / 
PT(J:=2**(J-1)*  J = 1 .2,  . . . • K.QMAX ♦ 2 

EUUI VALENCE  tPT(l),PTSl),lPT(2).PTS2)»<PT(3).PTS3>.(PT(4)»PTS4). 
i (PT(6),PT55)»( GAM ( 2 » 1 ) » P5 ) 

DATA  uAj/ i.  ,-.5 , -8. 333333 33E-02 ♦ -A . 1 666666 7E -Oc . 

1 -2.bj868889E-u2.-i  .8  75E-Q2.-1.42691  799E-C2, 

2 -1  . 1 36  73942E-02 35653660E-0  3 » 

3 -7.o925540lE-J3/ 

GAS(I)  -.IVES  THE  I — Th  APAMS-MOUL TON  CORRECTOR 
COE  FEIC  IF  NT.  1 = 1 .KUMAX+l. 

DA r A GAM/ 1 ...  5. . 4 16666667 , .375.  . 3486  1 1 1 1 1 .. 329861 11  1 , 

1 .315591931  ..30A22A537,, 294863000. .286975A46. 

2 . 5 ..  16666666  7. . 12  5. . 105555556.9 . 375 E -02 . 

3 8. 5615 J 794 E-J 2. 7. 9571  7693E-02, 7 .A8  622928E-0  2. 

4 7. 1C 329361E-02 .6. 78 6 8499 8 E-02 . 

. 666iOGb7  .A.  lot><j66G7E-02  *2. 9166666  7 E-02  » 

0 2.  361111 UE-02. 2.  33  7301  6E-02, 1 . 8 1 2 99603E-02 . 

/ 1 .6518  1327E-02 . 1 . >2772?66E-02.1.A2851882E-02. 

8 1.3AO93966E-02* 

v A.  1666666 7 E-02 , 3.  3 3 3 3 3 33 3E-03 , 5 . 566 5 55 56E-0 3 . 

1 A.  36507937E-0  3 . 3 . 6 78 902  1 2 E-03 , 3 . 223 6 65 20E-0 3 . 

$ 2.  • 8 954475  3E-  3 , 2 . 64  643  584E-03  » 2 . AA7  3 7 49 1 E-03  . 

$ 2. 2 35 795 44 E -03/ 

GAM'I.J)  GIVES  TH:  I-TH  ADAMS-F A LKNE R PREDICTOR 
COEFFICIENT  FOR  INTEGRATING  J-TH  ORDER  DIFFERENTIAL 
EQUATIONS.  1 = 1.2*.... KOMAX + 1 * J= 1 , 2 , . . . , KMAXO  . 


DIMENSION  LTAI3. 
DATA  ( ETA ( I . 1 ) * 

1 1.  1 36  36  360E-0 1 

2 2 • 7 1 3fi 1 590E-02 
DATA  (E.TAI  I . 2)  . 

1 3. 40? J9U9OE-0  1 

2 d. 14 14478UE-02 
data  i r r a 1 1 , 3 ) . 

1 ?• . 42857 140E-0 1 

2 1 . So  3 J3 6 50E-0 i 
A TA  » i ' t I . 4 ) » 

1 2.857 14280E-01 

t 3/66060E-01 

DA  A (trail,  S)  . 

1 2 . A 2 4 2 4 2 4 o E — 0 i 

2 c.Z  7 73280GE-0 ! 
DATA  l E I A ( 1 , 6 » » 

1 2.O979021CE-01 

2 1 . -3 2n556UE-0  1 
IT  A ( E T A ( I * 7 ) . 

1 I.84615380E-01 

2 6.961 92690E-G  2 
DATA  (ETMI.  8). 

1 1.64  7 .6880E-01 

t 9.2 14 31500E-02 
E T A I 1 . J ) 1 = 1. 2 * • 
I - TH  i l hr oRtNCE 


H I 


= 1 


1 = 1 

2. 

6 • 

= 1 


= 1 


= 1 


1=1 


1=1 

2. 
1 . 

1=1 

1 . 
4. 

• . J 

A 


:>f 


, 8!/  3.33333330E-01 , ?. 50000000F-01 , 

7 30  76930E-02 ♦ 4 . 6 05 26 330E -0 2 , 3 . 4 3 7499 80E-02 
2 2 6473  ICE-02 / 

, 8)/  2.00000000E-01 » 4.000000000-01, 

0 1923080E-01  • 1 . 3 8 1 5 7900E-0 1 . 1 . 03 1 24990E-0 1 

6 764  1930E-02 / 

, 81/  1.428  67140E-C1  . 2 . 8 5 7 1 42 8 0F-0 1 , 

46163  840E-0 1 , 2.  456 14040E-0  1 , 1 . 87500000E-C1 
24626490E— 01 / 

, 8)/  1.111 1111 0E-01  . 2.22222220F-01 . 

63968250E-01 . 3. 070 1 7540F-0 1 » 2 . 50000000E -0 1 

7 80378  50E-0 1 / 

, 81/  9.0909091 0E-C2 , 1 . 8 1 8 18 1 80E-01 , 

42424240E-01 » 1 . 7 3 160 1 70E-0 1 . 2. 50000000E-0 1 
05428290E-01 / 

, 8)/  7.692 30760E-02  , 1 . 5 3 846 1 5 OE-0 1 . 

2 3 7 762  20E-0 1 » 1 . 86480 190E-0 1 , 1 . 1 1 888 1 1 OE -0 1 
9 17  33  0 70E-0 1 / 

, 8)/  6. 6666666 0E-02  , 1 . 3 3 3 3 3 3 30E-0 1 , 

C512820GE-01  ♦ 1 . 86480 1 90E-0 1 . 1 . 34  265 730E -C 1 
39  4 42  2 30E-0 1 / 

, 8)/  5.882 35290F-02  . 1 . 17647060E-01 , 

83235290E-01  » 1 . 8 C995470E -0  1 , 1 . 44 796 380E -0  1 
2 1225e30E-02  / 

IS  USED  IN  THE  first  modification  OF  THE 
J-TH  ORDER  METHOD  AFTER  THE  STEPSIZE  IS 


SVDQ0237 
SVQOOZ38 
S V 0 0 0 2 3 9 
SVDQ0240 
SVDQ024 1 
SVDQ0242 
EVDCC243 
S VDQ0244 
SV DO 02 4 5 
SVD0024fc 
SVDO0247 
SVDQ0248 
SVDQ0249 
SVDQOZSO 
S V D 0 0 2 5 ] 
SVDQC252 
SV  <000253 
j>VDQ0254 

. . c 2 - 1 

SVDQ0256 
S V DC*  C2S 
. . . . 
SVD.:0259 
S V D j C 2 6 j 
SVDQ026 1 
SVDO0262 
.VD00263 
S V u Q n 2 6 4 
SVDQ0265 
~>VD  00266 
SVDQ0267 
SVD00268 
EVDQC269 
SVD0027C 
j V D 0 C 2 < 1 
SVDQ0272 
SV0Q0273 
SV 000274 
SVD00275 
SVDQ0276 
SVDQ0277 
SVDQ027o 
SVDOOZ79 
SVD00260 
SVD 00281 
SVDQ0282 
SVDQ0283 
SVD00284 
SVDG0Z85 
SVDQ02  86 
SVDQ028T 
SVDG0288 
SVDQ0289 
SVD00290 
SVDQ0291 
SVD00292 
SVD00293 
SVDOD294 


A-100 


o n r>  o n n n r\  r\  n r,  n n n r>  r\  n 


c 

c 


» -*  * * 


1 o 


c 

c 

c 

c 

c 


H A L v L D • 

[I  T A ( I * J ) J=  1 * 2 IS  USED  IN  THE  SFCOND  MODIFICATION  OF 

THE  (J+ll-ST  DIFFERENCE  OF  AN  I -TH  ORDER  METHOD. 

1 Ht  TwO  MODIFICATIONS  Or  THE  DIFFERENCE  TABLE  AFTER  HALVING  THE 
SFEPSIZE  REMOVES  MOST  OF  THE  INSTABILITY  INHERENT  IN  THE  ME  MOD 

USED  here  for  halving  the  stepsizf. 


IF  THE  GSTOP  FEATURE  IS  ELIMINATED.  REMOVE  THE  FOLLOWING  CARD. 
DATA  LOSS. LGSD.LGSE/O. 0.0/ 


THE  STATEMENTS  BETWEEN  THE  LINE  ABOVE  AND  A IMILAR  LINE  BELOW 
ARE  INSERTED  IN  THE  JPL  VERSION  OF  THIS  SUBROUTINE  TO  INSURE 
THAT  THE  CODE  IS  COMPILED  CORRECTS.  THFSE  STATEMENTS  THEMSELVES 
ARE  NUT  ACTUALLY  compiled. 

NEQ=NEQ 

HMl NA=HMI NA 

HMAXA=HMAXA 

DElT -DtLT 

TF I NAL  = TF INAL 

MXSTEP=MXSTEP 


‘,VC(JC  6 
VVDOOZR  ! 
SVDOO4V6 
SVDQC29‘.- 
SvDC  03Gn 
SVD003C  i 
SVDOC3  2 
SVD0030 - 
SVt>003  OR 
SVD003US 
SVDQ02  06 


initialize 

FSTLP--1 

N^  = NEQ 

IF  (NE.LE.O)  GO  TO  1190 

HH  = H 

NV-U 

KDMAX  - 0 

<DO  = <0 ( 1 ) 

KDS  = <DD 
DO  1 I = 1 »NE 
<0 ( I ) = 1 
D T ( 1 . I ) =0. 

IF  ( KDS»LE»o)  <DD= I ABSl <D ( I ) > 

IF  I ( KDD.FO.O ) .OR. (KDD.GT.KMAXO) ) HH=O.EO 

If  ( KDD.GT • KDMAX ) KDMAX  = <DD 

NV--NV+KDD 

IF  l (DELT*HH) .LE.O.EO ) GO  TO  1190 

ERRMX  =P 1 

E M A X = E R NO 

RNDC =RND*P2  G 

L DOUB  = 0 

E2HF AC=P2S 

LSC=8 

LSTC=4 


SVDG03  o 7 
SVDQ03Lfc 
SVDQ0309 
SVDQ03 1C 
SVD00  3 1 1 
SVDQ03 1 2 
SVDQ03  1 3 
SVDQ03  1 a 
SV0Q031S 
SVDC'03  16 
SVD00317 
SVD003  »£ 
S V DO  0 3 i 9 
SVD0C32- 
SVDOC32 ; 
SVD00322 
SVDQO  3 3 
S V 330  3 24 
SVDG032S 
SVDQ03Z6 
oVD 30327 
SVDQO  • 6 
SVDG0329 
SVD00330 
SVDQ0331 
SVD0033? 


I.SC  AND  LSTC  ARE  USED  IN  COMBINATION  AS  FOLLOWS 


SVD00333 


LSTC =4, 

LSC  = 4 

first 

TIME  THROUGH  THE  FIRST 

STFP 

SVD003  34 

L3TC=3. 

LSC  = 4 

SECOND 

TIME  THROUGH  THE  FIRST 

STEP 

SVD0033S 

(NECESSARY  TO  CHECK  STABILITY) 

SVDQO 336 

L S T C = 2 * 

LSC  = 4 

THIRD 

TIME  THROUGH  THE  FIRST 

step 

SVDQ0337 

(ONLY 

OCCURS  IF  INSTABILITY  POSSIBLt) 

SVDQ03 36 

LS TC  = 2 « 

L oC-t 

SECOND 

STEP  (IF  KG< I ) =2  . I = 

1 t • • • 

*NEQ  ) 

SVDQO 339 

1 S T C = i . 

L3C  = 0 

STARTING.  ONE  DERIVATIVE  EVAL 

. PFR 

STEP. 

3V0QC340 

I.S  TC  = 1 . 

LSC.G  r . 0 

SET  WHEN  STARTING  TWO  DERIV. 

EVAL  . 

PER  ST,.o 

SVDG03“  1 

A- 101 


c 

c 


c 

c 

c 

c 

c 

c. 

c 


c 

C b 0 0 u 
C 

c 

c 


L.U--1  LGC.LI.U  '.i  I WHEN  HALVING  THE  STPPGIZt 
IN  I Hi  l AST  TWO  CASES  LSC  lb  SET  EQUAL  to  l STC*  ( MAX  IMUM  KOI  I) 
41).  A!  THL  END  OF  EACH  ST  P IF  lSC.NE.O  IT  IS  REPLACED  BY 
ISC-LSTC  UNTIL  LSC=^.  AT  WHICH  TIME  LSTC  IS  SET  LQUAL  TO  0. 

*HEN  DOUBLING  H,  L-.TC  IS  -.El  EQUAL  TO  -1  AND  LSC  TO  -3. 

UNDER  CERTAIN  CONDITIONS  WHEN  KC(I|=1»  LSTC  IS  SET  =-l  AND  LSC: 

K SOU T --MXSTEP 
TOUT  =T 
I F L = 1 3 
I elag= 1 

GO  TU  315 

END  OF  IN'IT  IALIZAI  1 ON 


IN  TRY  SVD01 


TO  OUTPUT  VARIABLES  IN  THE  CALLING  SEQUENCE  REMOVE  THE  C-S 

in  column  one  of  ihe  following  cards  until  reaching  thf  comment 

END  Or  CODE  FOR  PRINTING  VARIABLES  IN  CALLING  SEQUENCE. 

IF  (NEO.NE.O)  GG  TO  28 
NEU=  1 

r,RITElu.SLCO)  T * DC  L T ,HMINA.HMAXA  .KEM  AX  ♦ EMAX  . I FL  AG  » TF  I N AL  . MXST  EP 
FORMAT ( 3HuT  = lPE15.8»7H  DELT=E12 . 5 *8H  HM I N A= . E 1 0 . 3 » 8H  HMAXA  - • 

1 E1G.3.8H  K EM4  X = » I 2 t 7H  EMAX  = E 1 0. 3 * 8H  IFlAG=,I2/ 

2 9H  I V 0 KD»7X«'<HF(  I ) * 9X  * 1HJ*  9 X » 4H  Y ( J ) 1 1 3X  * 5HYN ( J ) * 

J 1wX.7HTFINAL=1E15.8»9H  MXSTEP=IA) 


> VDOO  34^ 
SVDQ02A  j 
SVDQ0344 
SVDQ0346 
SVDG0346 
-SSVDQ0347 
SVDQ0346 
SVDQ03A9 
SVDQ03bo 
3VDQ03b  1 
GVDQ03S2 
SVDQ03S  3 
SVDQ03SA 
SVDG03SS 
GVDQ03S6 
SVDQ0337 
SVDQ03be 
SVDQ03S9 
SVD00360 
SVDQ036 1 
SV000362 
SVOQ0363 
SV0C0364 
SVDQ036S 
SVDQC366 
SVD00367 
SVDQ0368 
S VDOO  369 


C J=  A 

C DO  24  I =1 »NE 

C IF  (KD-.LT.O)  K.DD=  I AB3  ( KD  ( I ) ) 

C K=KDD 

C WR I T E I 6 * 5U0 1 ) I *KQ( I ) *KDD*F( I)*J*Y(J) *YN( J 1 

C30G1  FORMAT ( lH  , l 2 ♦ 2 I 3 * 1PE  1 7 . 8 » 1 4 ,2E  1 7 . 8 ) 

C 23  J — J 4 1 
C K = K-  1 

C If  (K.EQ.U)  GO  TO  24 

C WRITE! 6 *5002)  J.Y(J),YN(J) 

CS002  FORMAT ( 26X* I4*1P2EI7,8 ) 

C CC  TO  23 

C 24  CONTINUE 

WRITE! 6 * 5 u 0 3 ) 

CbG03  FORMAT! 3H0  I ♦ 1 b X » 1 cHD I F FERENCE  TABLE) 

C DO  21  I =1 *NE 

C KQU=KQ  (1)4-1 

C K = M I NO ( KQQ  t 7 ) 

C WRITE(6f5G04)  1 t < D T ( I 0 , I ) , 1 0=1,0 

CSG04  FORMAT!  1H  , I 2 , 1 P E 1 9 . 8 . 6E 16 . 7 ) 

C 

C IF  (K.LQ.KQQ)  GO  TO  27 

C K=K+ 1 

C WR I T L ( 6 *3005  ) IDT ( 10*1  ) » I 0 = K » KQQ ) 

CbuGb  FORMAT ( 1H  , 1PE2 1 . b . 7E 14 . 5 ) 

C 27  CONTINUE 

IF  (NEQ.FQ.O)  RETURN 
C N E Q = v 

C 28  CONTINUL 

IN!  .r  CODE  FOR  PRINTING  VARIABlES  IN  CALLING  SEQUENCE. 


SVDQ037C 
SVDQ0371 
G VDQ03  7 2 
GV DQC373 
G VDQC3  7 4 
S VOG  C 3 7 b 
S V D G 0 3 7 6 

i 

SVDQ03  78 
SVD00379 
SVDQ0380 
SVDG038 i 
GV . 3 0 3 c 2 
S V 0 G 0 3 8 3 
VDG0384 
SVDQC36S 
' V 3Q0386 
-V0CC3o7 
GVDG0388 
SV0Q0369 
SVDQ0390 
SVDQC'391 
SVDQ0392 
GVDQC393 
GVDQ0394 
SVDQ039b 
3VDQ0396 
SVDQ0397 
SVDQO  3 96 
SV0Q0399 
SVDQ04o0 


A-1U2 


i ^ l i i ► L ) 3C*6L*3<-L 

SVDCn-  l 

J J 

If  ( IFL.GT.5)  GO  TO  1180 

l VDO0A02 

c 

SvDQr+o? 

c 

SET  STLP  5 TOP 

SV  DO  04  O'* 

<SOuT=<STEP+MxSTEP 

SVD0040J 

IF  ( IFL-4)  40,1210,210 

SVD004l*6 

r 

SVD004U7 

V. 

SVDQ04!  a 

c 

,t.  T PRINT  STOP 

SV DO 040V 

4 J 

TOUT  - T + DEI  T 

SVDQO* - 

c 

SVD004 1 1 

5 0 

TPS  1 - ABS( AMOD 1 ( TOUT-TL ) /HH, 

PTS2  ) 

-PTS  1 ) 

SVDQ0412 

LFO=-l 

SVDQC413 

I F ( TPS1.GE.P5)  LFD=  1 

SVD004 14 

c 

6VDQ04 i b 

lf  is  used  to  indicate  whether 

DOUBLING  H IS 

PERMITTED. 

SVDQO*+  4 6 

IF  LFD.LT. 0 AT  THE  END  OF  A 

STEP 

THEN  DOUBLING 

H 

IS 

SVDGO*-*  1 7 

c 

NOT  PERMITTED.  THE  SIGN  OF 

LFD  IS  CHANGED  JUST 

BEFORE  THE 

S VDQ04 i 8 

c 

t N.  OF  EACH  STEP.  IF  DE L T =H# ( POW ER  OF  2)  THEN 

SVD0C419 

r 

OU1FM  VALUES  WILL  BE  OBTAINED  WITHOUT  INTERPOLATION. 

SVD00420 

SVDGC4c 1 

uC  TC  2 v- 0 

SVDQ042<i 

c. 

SVDG0423 

SVDG0+W4 

c 

ENIRY  WITH  I F LAG  = 2 

SVDQ0425 

c 

SVDQ0426 

c 

UPDATE  DIFFERENCE  TABLE 

SVD00427 

c 

AND  COMPUTE  <OM  = MA  X I MUM  VALUE  OF 

<0( I ) , 1=1,2, 

• • • 

*NEQ. 

SVDQ0428 

c 

SVDG0429 

60 

kgm=o 

SVDQ0430 

DO  80  I - 1 ,NE 

SVDQ0431 

<00= KG ( I ) 

S VDGOA  3 2 

IF  (KQU.GT.KQM)  KQM=KGQ 

^>VDQ04j5  j 

D ( 1 ) = F ( I ) 

SVDQC'434 

DO  7 K=1,KQQ 

SVDGC  4 3b 

D( K + 1 ) =D( K ) -DT ( K , I ) 

SVDG0436 

70 

DT ( K , I ) = D ( K » 

SVDQ0437 

DT ( KQG  + 1 , I ) =D ( <00+1 ) 

SVDOO+  j>8 

ao 

CCNT INUE 

S VDG  04  3 9 

c 

END  OF  UPDATING  DIFFERENCE 

TABLE 

SVDG04'*0 

c 

5VDQ044 i 

c 

STORE  Y(J>  IN  YN(J) 

SVDQ0442 

DO  90  J=1,NV 

SVDG044 3 

9, 

Y N ( J ) = Y ( J ) 

:>  VDQ  04^*4 

c 

SVDG044S 

lfd=-lfd 

SVDOCA'.b 

TL  = T 

S i U'044  7 

<STEP=KSTEP+1 

SVD0C44& 

c 

SVD004'*9 

c 

IF  THE  GSTOP  FEATURE  IS  ELIMINATED,  REMOVE  THE 

2 

FOLLOWING 

CARDS,  S VDG 04^0 

IF  (l GSS ) 1430,110,1610 

SVD004S 1 

1 0 J 

i flag =2 

S VDQ04S  2 

1 lu 

If  (LSC.EQ.Ci)  GO  TO  14C 

SVDQ04S  3 

L SC  = L SC “LSTC 

SVDQ04b4 

IF  (l SC  .EO.O ) GO  TO  1 30 

SVD004bb 

IF  ( LSTC.NE. ( -1 ) ) GO  TO  140 

SVDQ04bh 

IF  (LDOUB.LT. 0)  RNDC  = RND*P 1 

SVDQ04D  7 

120 

E 2HAVE  = E?HMAX 

SVDG0438 

TFS1-PTS1 

SVDQ04b9 

A - 103 


r»  n 


c 

L 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


GO  10  190 

130  IF  ( ABMHH)  .LT.HMINA)  GO  10  1000 

lsk -0 

14^  IF  (ldOUB.NE.1)  GO  TO  150 

IF  ( { Lt- D.GT  .C  ) . ANO*  ( AdS(HH+HH)  .LE.HMAXA)  ) GO  TO  1030 

GO  TO  200 

15^  R0MAX=PTS1/EL0AT  ( KQM+  3 ) 

IF  ( L STC.NE.O.OR.E2HAVE.EQ.O.EO ) GO  TO  120 

TPS1 -L2HVAX/02HAVI 
IF  ( TPSi-PTSl  ) 1 6 u » 19  0.170 

16^  E2H(  AC=AMAX1(  .075  EG  *E2HFAC-RQMAX  ♦ F 2H  F AC*  TP  S 1 ) 

GO  TO  160 
17<J  TPS1-TPS1*TPS1 

E2HFAC=AM INI ( PTSi .E2HFAC*TPS1 ) 

18o  RNDC  = ( I . 1-E2HFAO  *RND 

E 2 H A V L ~ P 5 * ( E2HMAX+E2HAVE ) 

190  ERRMX=AMAX1 (P1.ERRMX-RQVAX*TPS1 ) 

E2HFAC  IS  A FACTOR  WHICH  lb  TAKEN  TIMES  AN  INITIAL  ESTIMATE  OF 
E2H  TO  GET  A FINAL  VALUE  OF  E2H.  ( E2H =ES T I M * T E OF  WHAT 
(ESTIMATED  ERROR (/(REQUESTED  ERROR)  WOULD  bE  IF  H WERE 
DOUBLED. ) 

E 2 UMAX  IS  THE  MAXIMUM  VALUE  OF  THE  INITIAL  ESTIMATE  OF  E2H  OVER 
ALL  COMPONENTS  WITH  KQUl.GT.l. 

E2HAVE  IS  A WEIGHTED  AVERAGE  OF  PAST  VALUES  OF  E2HMAX. 

THE  VALUE  OF  E2HF AC  TENDS  TO  BE  SMALLER  WHEN  E2HMAX  IS 
CONSISTANTLY  SMALLER  THAN  E2HAVE. 


CHECK  FOR  PRINT  STOP  AND  FOR  T REACHING  TFINAL 

2 0u  TPD - ( I OUT -T  L ) /HH 

TPO 1 - ( T F I NAL-TL ) /HH 

IF  THE  GSTOP  FEATURE  IS  ELIMINATED.  REMOVE  THE  FOLLOWING  CARD. 
IF  (tGSt.LT .0)  GO  TO  1730 
IF  ( tPDI.LT  .FAC ( 1 ) ) GO  TO  1220 
IF  ( TPD.LE. U.EO  ) GO  TO  128C 

CHECK  FOR  STEP  STOP 

IE  ( KSOUT .GT.KSTEP ) GO  TO  210 


I F L - 5 
GO  TO  310 


CHECK  Tu  SEE  IF  ROUND-OFF  ERROR  IS  PROMINENT 
21-  IF  (EMAX.EQ.ERND)  GO  TO  22L 
IT  IS 
I F L--6 

IE  (lMAX.GE.P1)  C TO  310 

IF  ( (LST-.GE.D)  .OR. (lOOUB.EQ.1)  ) ERR  MX  = PT  S 1 

2 2 u IFL-1 
2 3 J T = T L + H H 


START  A NEW  STEP 

C 

C PREDICT 

2 A u J = 0 

DO  2 A 1 = 1 • NE 

IE  (KDS.Lt.U)  KDD= I ABSIKDt I) ) 

A-104 


SVDQ0460 

SVDG0A61 

SVDC0462 

SVDQ0463 

SVDG0464 

SVDQ0465 

20466 

fk 

SVDQ0A68 
SVDG0469 
SVDG04 70 
SVD00A7] 
SVDQ0472 
SVDQ0A73 
SVDQ0474 
SV DO 04 7 5 
SVD00476 
SVD00477 
SVDQ0478 
SVDC0479 
GVDQ04o0 
5 V 0 0 C 4 6 1 
S V DO 09o  ? 

. 30483 

S7DQ04&4 

SVD00486 
SVDQC486 
SV DO 04 8 7 
SV DG  04 8 6 
VDQ0489 
SVDG049C 
SVDG0491 
SVDO  049  2 
SVD0C49? 
SVDG0494 
SV DO 04 9 5 
SVDG 0496 
SV:'Q0497 
SVD00498 
SVDC 0499 
SVDQOSOO 
SVDQ050 1 
.SVDG05  L 2 
SVDO 050? 
SVDQ0504 
S V DGO  5 05 
SVD00506 
SVDQC507 
SVDQ05C8 
SVDQC5&9 
SVDQ0510 
SVDQ051 1 
5VDQ05 1 2 
SVD005  1 3 
SVDQ0514 
SVD0C5  15 
SVDG05 16 
SVDQ0517 
SVD005  18 


KDC^NDD 
2 5 0 KQQ  = KQ ( 1 ) 

TPD=O.EU 
K = KDC 

2 6o  TPD=TPD+DT ( <QQ  . 1 ) *GAM ( KQQ.KDC ) 

KQQ=KUQ-1 

IF  (KUQ.GT.O)  GO  TO  260 

27  v K.-K-  1 

IF  (N.LE.U)  GO  TO  280 
L J * K. 

IF  u-  rN  ( L+  1 ) *FAC  ( K.  ) + HH*  TPD 
Gu  lu  27 0 
28u  J- J+  I 

Y ( J)  =YN l J ) + HH* TPD 
XDC=KDC-\ 

IF  (KDC.GT.O)  GO  TO  250 
290  CONTINUE 

END  OF  PREDICT 

IF  THE  GSTOP  FEATURE  IS  ELIMINATED.  RFMOVE  THE  C IN  COLUMN  ONE 
OF  T HE  2 FOLLOWING  CARDS 
IF  l IFL ) 20.320. 3 Oo 
300  CONTINUE 

AND  THEN  REMOVE  THE  2 FOLLOWING  CARDS. 

IF  ( IFL)  lLA0.320.300 
300  IF  (LGSD.NE.O)  GO  TO  1520 

310  IFLAG=IFL 
316  CONTINUE 

TO  OUTPUT  VARIABLES  IN  THE  CALLING  SEQUENCE  REMOVE  THE  C IN 
COLUMN  ONE  OF  THE  FOLLOWING  CARD. 

IF  (NEQ.EQ.O)  GO  TO  22 

RETURN 


ENTRY  WITH  IFLAG=1 

3 2'-'  EP  =EP  ( 1 ) 

E RND-0 . 

EMAX  =0 . 

E2HVAX=0. 

J = 0 

IF  (IDOUB.GE.O)  LDOUB=l 

LDOU8  IS  SET  IN  THE  LOOP  BELOW  AS  FOLLOWS 
LDGUB=0  HALVE 
LDOU8=  l DOUBLE 
LDOUB=2  DO  NOT  DOUBLE 

LDOUB.LT. 0 AT  THE  BEGINNING  OF  THE  LOOP  INDICATES  THE  FOLLOWING 
= — 3 STEPSIZE  HAS  JUST  BEEN  HALVED.  IF  A DISCONTINUITY  IS 
NOT  INDICATED  MODIFY  THE  DIFFERENCE  TABLE  AND  REPEAT 
THE  STEP. 

=- 2 STEP  AFTER  LDOUB=-3.  PROCEED  AS  USUAL  (ORDER  IS  NOT 
CHANGED) 

---1  STEP  AFTER  LDOUB  = -2.  MODIFY  THE  DIFFERENCE  TABLE  ONCE 
AGAIN  AND  REPEAT  THE  STEP. 

I)  LDOUb  IS  SET  EQUAL  TO  -A  THE  ORDEP  IN  AT  LEAST  ONE  COMPONENT 


SVDQ0‘.  ! 9 
V DO 092C 

SVDD0521 

SVDQC  r 2 

SVDQ052  3 

SVD0052'. 

SVDC0525 

SVDOC526 

SVD00527 

SVDQ0528 

SVDQ0329 

SVDQ05  30 

SVDOC531 

SVD00532 

SVDQ0533 

SVDQ033A 

SVDQ0536 

SVD00536 

SVDCC537 

5VDQ0538 

SVD00539 

SVD006'*r 

SVDQOS^I 

SVDQ05A2 

SVDQ05A3 

SVD005AA 

SVD006A5 

SVD0D5A6 

SVD005A7 

SVDQC5AA 

SVDQ05A9 

SVD0055C 

SVDQ055  1 

SVDQC55  2 

SVDO055  3 

SVDC055A 

SVDC05  6 5 

SV0QC666 

SVDQC  66  ^ 

SVDQ056S 

SVDQ0559 

SVDQ066C 

SVD0056 I 

SVDQC  66  2 

SVDQ0563 

SVD0056u 
S'.  00565 
SVDQ0566 
SVDQC567 
SVDQC 56 6 
SVD00669 
SVD0C570 

SVD0057  1 
SVDOC572 
SVDGC5 7 7 
SVDQ057A 
SVD00575 
SVDG0576 
SVD0Q577 


A-105 


HAS  JILN  GREATLY  KlDUCED  AND  THE  STEP  IS  REPEATED. 


SV('Q0b76 
SvDQo579 
3 VDGOb  bo 


c 

IF  THE  OUTPUT  OPTION  IS  ELIMINATED.  REMOVF  THE  A FOLLOWING  CARDS. 

SVD0058  T 

IF  (NtU.LE.O)  WRITE  (6.SC20)  LSC  » t_FD  , LSTC  .K,  ST  EP  .E2HF  AC  ♦ ERRMX  . HH 

SVDOObb? 

b02u 

FORMAT  ( 19H0  I KoO  lRND  LDOUd. 5X.1HE.9X.3HE2H. 

SVDQ058  3 

1 

8X.3HEPS,3X,AHLSC=, I3.6H  LFD=.I2.7H  ISTC=.I2.8h  KSTEP-.IA, 

SVDQCS8A 

2 

vH  E 2HF AC=  * F A . 2 » 8H  ERRMX= , F A . 2 * A H H=.1PE9.2) 

SVDQ0b8b 

C 

SVDQ0S86 

C 

SVDCC587 

C 

BEGINNING  gF  loop  FOR  CORRECTING.  ESTIMATING  THE  ERROR. 

SVDQObbb 

c 

AND  ADJUSTING  Tut  NUMBER  OF  DIFFERENCES  USED 

SVDOObSQ 

c 

SVDQ0590 

DO  790  I = 1 . NE 

SVDQ0591 

IF  (KDS.LE.U)  KDD- IABSI KD( I ) ) 

SVDQ0592 

<OQ=kQ ( i ) 

SVDQOS93 

c 

K.GG  GIVES  THE  ORDER  OF  THE  PREDICTOR  FORMULA  AND  ICQQ  + 1 THE 

SVDQQ59A 

c 

ORDf  ■:  OF  THE  CORR'  CTOR  FORMULA. 

SVDQ0590 

c 

SVDQ0596 

KO 1 - M»G  + I 

SVD00597 

D(  1 ) =F ( I ) 

SVDQ0598 

c 

FORM  1HL  DIFFER:  N E TABLE  FROM  PREDICTED  DERIVATIVE  VALUES. 

S VDQ0S99 

DO  330  A =1, KOI 

SVDQ06o0 

D Us+ 1 > =D; < ) -DT is.  ) 

SVDQ06C I 

33U 

CONT I NUE 

SVD00602 

C 

D(K>  GIVES  THE  (K-l)-ST  DIFFERENCE  FORMED  FROM  PREDICTED 

SVDC0603 

c 

DERIVATIVE  VALUES 

SVDQ060A 

TPr  3 - A B S ( D ( KGO+1  ) I 

-SVDQ0605 

IF  (ID0UB.LT.0)  G i TO  7 20 

SVD206C6 

r 

V- 

SVD00607 

3 AC 

IF  IKUO.Nt.l)  GO  TO  b 20 

SVCQC’608 

C 

SVDQ0609 

c 

*w(I)=i  Is  TREAT  D AS  A SPECIAu  CASE 

SVDG0610 

E2H=PTS2 

SVD00611 

TPSb  =D  T 13.1) 

5VPQ06 12 

IF  USTC.LT.  2)  GO  TO  370 

c 

FIRST  STEP  OF  INTEGRATION 

SVDC06: A 

IF  (LSTC.NE.A)  GO  TO  350 

SVOOOolb 

T P SA -0  • 

SVDQ0616 

IF  (KDD.'-T.i)  TPS  -AMAX  1 ( TPS3 . AB S ( HH # D < 1 ) ) ) 

TPS3- TPS3«P 1 

SV  1061 
SVDOC618 

3bu 

DT  ( 2 . i ) =D ( 2 ) 

SVDOC620 

D<  2 1 =D< i ) -DT 1 5.  I > 

SV DC 06 2 I 

TPS2=-D<?  > 

SV0Q0622 

TPS3=PTsb»ABS( TP  S2 ) 

SVSQD623 

C 

F I K S T STEP  THAT  K O ( I ) = 1 

VDQ062A 

36^ 

d t ( 7 . i ) --  p r ( a ; 

2! 

IF  t LSTC-2 ) A20.38S.380 

SVDQ0626 

37u 

I F I TPSb.EQ.C . ) GO  TO  360 

SVD00627 

IF  (DT 16. I ) .EQ.U. ) GO  TO  AGO 

SVDG0626 

TPS2=DT  < 5 , I 1 -DT ( 1 . I ) 

SVDQ0629 

i 

iti'J 

TPSA=DT ( A. I ) 

SVPQ0630 

TPS1=ABS( TPSA) 

, V ) P 6 3 1 

IF  ( TPS A . G T • < - TP  S I ) ) 
3 9 U TPS6=-FT5l 
GO  ro  AbO 

FIRST  STEP  AFTER  THE 
AuU  DT(6»II=PT<1) 


GO  TO  A 1 0 


STEPSIZE  HAS  t'EEN  CHANGED 


A-106 


SVD00633 
AVDC063 A 
SVDQ06  3b 
SV DQ0636 
SVDO0637 


kb.., 


TPS6=0. 

5VDOO.  A H 

GO  70  450 

7D0063V 

4lo 

IF  ( I P S4 . L T • T P 0 1 ) GO  TO  440 

SV DQ P64 r ! 

I F ( TPS1.EQ.0. ) GO  TO  390 

SVD0064  : 

42U 

TPS6=PTS1 

SVD0064? 

GO  TO  450 

SVDQ0643 

43u 

KQ( I ) =2 

SVDQ0644 

IF  (2-LSTC)  510.510.520 

SVD00645 

4 4^ 

rPSf>^TPS4/TPSl 

SVD00646 

4 5 u 

TPS4- TPG5+TPS6 

SVDQ 3647 

I F ( TPS4.LT.P25 ) GO  TO  430 

SVD00646 

L 

INCREASE  E2H  IF  (-S1.GT..25 

SVD0064V 

E2H=PTS4*TPS4 

SVDOP65f 

IF  (2-LSTC)  460.470.480 

S VD0065 1 

46^ 

LSC  = C 

SVDQ0652 

GO  TO  510 

SVD0065  3 

4 70 

IF  (TPS5-P25)  430.460.460 

SVDQ 06 5 4 

4 8^ 

IF  ( rPS4.GT.PTS2 ) GO  TO  490 

S VDQ0655 

IF  ( TPS4.GT.P5)  D( 2 ) =D< 2 ) *GAM(2, 1 ) 

SVDG0656 

GO  TO  510 

SVDOC657 

49  u 

IF  ( TPS4.LT. PTS4)  GO  TO  500 

SVDQ0658 

TPS4rp  TS4 

S VDG'0659 

D<  2 ) =D ( 2 ) /PT 1 3 ) 

SVD00660 

C 

THE  ESTIMATE  OF  E (AND  HENCE  OF  F2H)  IS  INCREASED  IF  I-SJ.GE.8. 

SVDO0661 

TPS3=TPS3*DT( 7.1) 

SVDC0662 

GO  TO  510 

S VD0066  3 

50^ 

D(2)-D(2)*PTS2*<  TPS4-PTS1  )/(TPS4*TPS4) 

SVDQC664 

IF  ( TPS4.GE.P3E1 ) E2H=E2H*DT( 7. I ) 

SVDQ0665 

G 

(RE  D ( 1 ) =PRED I CTED  DERIVATIVE  AND  D ( 2 ) = 2* ( CORREC T E D Y - 

SVDQ  0666 

C 

PREDICTED  Y)/H  Dll)  AND  D(2)  ARE  'JSED  TO  COMPUTE  (-S)  ON 

SVDO0667 

c 

IMF  NEXT  STEP. 

SVDCC66F 

5 1 J 

DT ( • , 1 ) =D(  1 ) 

SVDQ0664 

0 1(4.1  ) =D ( 2 ) 

SVDQ067  0 

D ( 4 ) - TPS4 

S VD006  7 1 

c 

store  d ( 4 ) = current  estimate  of  (-si.  f — s ) . c t . 3 is  an  indicat:  n 

SVDG067  2 

THAT  THE  ST  EPS  I 2 E SHOULD  BE  LIMITED  BECAUSE  OF  STABILITY  OROBt FMS 

. >006 

c 

S = H*  (EST  IMATE  OF  EIGENVALUE  OF  F )sH»  (DIFFERENCE  3E TWEEN  PREDICT-"- 

SVDQC6  7 4 

c 

AND  CORRECTED  DERIVATIVE  VALUES )/< DI FFERENCE  BETWEEN  PREDICTED 

SV DC  0675 

c 

AND  CORRECTED  INTEGRALS  OF  ThE  DERIVATIVE  VALUES) 

SVDQ0676 

c 

FHE  TREATMENT  OF  ThE  CASE  KCO ( I ) = 1 COULD  BE  IMPROVED  »Y  USING  A 

V - 7 

c 

SPECIAL  METHOD  FOR  STIFF  EQUATIONS  WHEN  (-SJ.GT.3  (MAYBE). 

S V D Q 3 6 7 fi 

c 

(THE  ENTIRE  TREATMENT  OF  THE  CASE  KQ ( I ) * 1 IS  FAR  FROM  IDEAL.) 

SVDC0679 

DT ( 3 . I ) =D (4 ) 

SVDOP680 

c 

S /DC 06  c 1 

c 

CORRECT 

SVSCC682 

52- 

kDC-^ 

S V ^ 7 06  6 3 

TPD-Dl KQ1 ) 

S '/DC  0604 

J = J+K.DD 

SV0Q06S5 

K - J 

SVDQ 06 6 6 

b'i'J 

tpd=hh*tpd 

SVDC068'7 

K DC  = F DC  + 1 

SVD0P6E8 

Y ( < ) =Y  ( < ) + GAM  ( K.00+1  .<DC  ) * TPD 

SV DO 06 8 9 

K * K - 1 

: vdo •»6Q'' 

IF  (KDC.LT.KDD)  GO  TO  530 

SVDQ069 1 

c 

t NO  OF  CORRECT 

S V DO  06  9 2 

c 

SVDG0693 

IF  i LP  S ) 540.550. 560 

SVD0C694 

b4o 

E P S - F P ( I ) 

S VD00o°t' 

I F ( FF’S.NE.  J.  ) GO  Tu  560 

SVDC06M6 

A - 107 


t»5u 

IF  ( HMAXA ) 1190.780,1190 

SVDQ0697 

5 60 

rPr4  A 14 . , ( D ( K.QQ+ ) l 

SVDG069B 

TPS2  = AB,S<  D ( ICUQ)  i 

SV  00699 

TPS6 -HH/FPS 

SV(.'00700 

c 

SVDQ0701 

1 ■ AM  ( GA  . ( fCUCI  ♦ 1 » IPS  '»T:>S6  > 

SVDQ0702 

c 

L GIVI  AH 51  (Eli  MATED  ERROR ) / EPS ) 

s VDQO  7 0 3 

c 

VDG07U4 

LRND- 1 

SVDQ07u5 

L 

SVDQO  706 

c 

LK.\  1 MEAN  HO  KOUND-UFF  ERROR 

SVDQ0707 

c 

= . MEANS  ' E ROUND-OFF  ERROR 

SVDQO 706 

c 

--1  MEANS  X 1 E M t ROUND-OFF  ERROR 

SVDQO 70 9 

c 

SV0Q071n 

E"  RN'D  rP  1 i -;<JQ  + 2 ) * -’!  C * ABS  ( DID) 

SVDQ071 ] 

c 

C H t C x 10  St;.  IE  E JND  OFF  ERROR  IS  DOMINANT 

SVD00712 

IF  (ITPSOxTP  J.oT.FRND)  GO  TO  570 

SVDQ0713 

lrnd=c 

SVD007 14 

IF  ( (P  1 4*TPS2  ) • L ' .f'RND)  LRND=-  1 

SVDQC715 

c 

SVDQ0716 

8 70 

IE  M.Lr.LRND’  TO  590 

SVDQ0717 

If  (L.i  L.EMAX  Gc  TO  580 

SVDQO 7 1 8 

E M A X = t 

SVDQ0719 

K.1  MA  A = I 

SVDQ0720 

5 6- 

IF  (LRND.ee,  .u  GC  TO  590 

SVDQC721 

E RND  = E 

SVDQ0722 

I c ( ERND.  ' T • r - R MX  ! LDOUB=0 

3VD00723 

590 

IF  ( L DOUB.LE. J ) C TO  780 

SVD00724 

TPS1 = ABS ( DD ( KOO ) ) 

SVDG0725 

TPS5-TPS1 

SVDQ0726 

IF  (K.QQ-  ) 600.-1  .620 

SVDQO  7 2 7 

6 0U 

E2E(-E*E2h 

SVDQO 72  6 

JF  (E2Ei.LT.P0  1)  C 10  780 

SVD.C-729 

IF  ( D( 4 ) . L T.P  'E . ) GO  TO  770 

SVDQO  7 30 

L S T C = - 1 

SVD00731 

L SC= -5 

S V OQ  07  3 2 

GO  TO  7 70 

SVDQ0733 

6 1 u 

TPS1= TPS2 

SVD  .07  34 

IF  (lSTO.NE.  2)  GO  10  620 

SVDQ0735 

<0 ( 1 ) = 3 

SVD00736 

TPS2  =0. 

SVDC.n73’’ 

rPS4-^ . 

SVDQ07 46 

LRND=u 

SVDQO 7 39 

o r 'j 

E 2H=  TPS.  +■  TPS  I > TD ' . 

S'.  Dl.  0740 

j *.  • r ( r.oo+i  >»E2h  *tps6  ) 

SV000741 

c 

1,:  IS  tl  A N 3TIMATE  OF  WHAT  THE  VALUF  OF  fc 

WOULD  BE 

SVDQO 74 2 

c 

if  Afci'.f  DO'.  ;L  ■ Tflfc  ESTIMATE  IS  CONSERVATIVELY 

large . 

SVDQO  743 

if  ( LCH.Gl  .E.-'HM  x:  E2HMAX  = E2H 

SV DO 0744 

c 

S V DC  0 7 4 5 

IE  ( L RND  ) 630.640.660 

SVDQ0746 

c 

EXTREME  ROUND-  OFF  ['RPOR — RE  D'JCF  E?H 

S VD(.  07  4 7 

b 3U 

K.  = ( < B I T 2 / KQQ  ) -4 

SV' C0748 

IE  (K.LE.3)  GO  TO  640 

SVDC074O 

IF  ( r . >T . KOMAX ) K ~ xQMAX 

SVDQ0750 

F2H  = E 2H/PT  OCf  J ) 

SVDQ075 1 

GO  TO  650 

SVD00752 

6 40 

Ex  H 4M;M(E2H.I  (I*  ' 3f  1 *E2HFAC) 

VD00753 

6 5u 

E2H=E2H*P 1 

SVDQ0V54 

TPS6-PT  ’ 4 

SVDQ0755 

A- 11)8 


n n n no  on 


GO  TO  670 
C 

660  E2H=E2H*F2HFAC 

TPSb=FLOAT ( KQQ+2 ) 

C TEST  TO  SEE  IF  DIFFERENCES  DECREASE  MORE  RAPIDLY  THAN  NECESSARY 

C 

67j  IF  I TPS5.LT •( TPS3*TP56) ) GO  TO  680 
IF  ( TPS2.EE. ( TPSA*TPS6 ) ) GO  TO  760 
C THEY  00  INCREASE  KOI  1) 

IF  ( <QU.NE.<QMAX ) KGO  ( I ) = KQ 1 

GO  TO  760 
C 

C TEST  TO  SEE  IF  DIFFERENCES  DECREASE  TOO  SLOWLY 

68^  TPS6=TPS6*P25 

IF  ( ( TPSl.GT. t TPS3*TPS6 ) ) .OR. (TPS2.GT . ( TPSA*TPS6)) ) GO  TO  760 

C THEY  DO 

IF  (LSTC.LE.O)  GO  TO  750 
IF  (E2H.LT. P01)  GO  TO  750 
IF  (ISC-LSTC)  690,750*770 
69u  IF  (KSTEP-A)  750,700,710 
7 C ^ <01-1.  STC 
i lo  L SC=  <0  1 

C END  OF  ONE  DERIVATIVE  EVALUATION  PER  STEP 

GO  TO  770 

C 

C AFTER  HALVING  H.  REDUCE  <Q(I)  IF  A DISCONTINUITY  HAS  OCCURRED. 

7 2 ^ IF  ( t DOUR.EQ. ( -2 ) ) GO  TO  3A0 
D 1 . <00+1  , I ) = D( <00+ 1 ) 

IF  ( LDOUB.EQ. ( -1 ) > DT ( KQQ  + 1,1 ) = D ( KQQ  +2  ) 

< = <(J0 

73u  IF  (K.LQ.l)  GO  TO  7A0 

IF  ( (AOS(DtK-l)  ) . GT  . ( PT ( 2 ) *A3S< D( K + l ) 1 ) ) .OR. 

1 < AbS ( D ( K ) I.GT. I P I (2)*AB5(DIK+2 ) ) ) ) ) GO  TO  7A0 

< = <-  1 

GO  TO  7 30 

Mj  IF  ( (<+<).  GE . KQQ  > GO  TO  780 
LD0uB=-A 
E 2H=w. 

<Q0  = <+  1 


DIFFERENCES  DECREASE  TOO  SLOWLY  REDUCE  <0 ( I ) . 

/5o  <0(1 ) =KU0-1 

I F ( KGU.EO. 2 ) DT ( 3 , I ) =0. 

76^  IF  (E2H.LT. PD1)  GO  TO  78C 

11  J LD0UB=2 
78  J CONTINUE 

IF  THE  OUTPUT  OPTION  IS  ELIMINATED,  REMOVE  THE  6 FOLLOWING  CARDS. 
IF  (NEU.GT.O)  GO  TO  790 
10  2 = MAX u ( 1, ( KQQ-  1 ) ) 

103=102+3 

aiKITE  (6,5021)  I ,<OQ,LRND  ,LDOUB,  E ,E2H  ,EPS, 

1 ( 101 *D< 101 ) , 101= 102 , 103 ) 

5021  FORMAT  <1H  I 2 , I A , 2 I 5 , 1 PE  1 3 . 3 , 2E 1 1 . 3 , A ( 3H  ( , I 2 , 1 H ) , E 10 . 3 ) ) 

79 u CONTINUE 

END  OF  LOOP  FOR  CORRECTING,  ESTIMATING  THE  ERROR,  ETC. 


SVDQ0756 
GVDQC757 
SVDQ075B 
SVDG0759 
SVDC07  60 
SVDQ0761 
SVD00762 
SVDQ0763 
SVDQ076A 
SVD00765 
SVDO0766 
SVDQ0767 
SVDQ0766 
SVDQ0769 
SVDQ0770 
SVD0C771 
SVDQ0772 
S VDQ077  3 
SVDQC77A 
SVDQ0775 
SVDGP776 
SVDQ0777 
SVDQ0778 
SVDG0779 
SVDQ0780 
SVDQ078 1 
SVDQ0782 
SVDOC763 
SVDQ078A 
SVDQ0785 
SV DO 07 86 
SVDO0787  * 
>VDQO 788 
SVDQP789  \ 
SVDQC790  < 
SVDGC79  1 
SVDQ0792 
SVDQ0793 
SVDQ0794 
SVD0C795 
SVDQ0796 
SVDQ0797 
SVD0C798 
SVDQ0799  ! 
SVDQO60O 
SVDQ08G 1 
5VDO0602  j 
SVDQ08G 3 i 
SVDQ08  1 +* 
SVD0C805 
SVDQ0806  I 
SVDQ0807 
SVDQ0808 
SVD00809 
SVDQ08  10 
SVDQ081  1 
SVD0C8  1 2 
SVDQ08 1 3 
SVDQOB 1 A 


j 


A-ioy 


c 

c 

c 

L 


c 


L 


c 


It  rti  lNTtRPOLATI  N CAPABILITY  IS  ELIMINATED  REMOVE  THF 

follow i no  card. 

IT  l IFl.LT.O)  jO  T 1250 
TEST  FOR  HALVING  H 
IF  ( L DOUB ) 8uO  * 9 1 u , 870 
800  LDOub - L L Dub  + 1 

1 F ( LDOUR+ 1 ) 8 ’ 0 .6  '0.82C 
UK  IF  ( LDo’Or'.EQ.  ( -2  > ) GO  To  820 

ORDER  . <\  AT  Lt;  S >NE  COMPONENT  HAS  BEEN  GRFATLY  i\EDOCFD 


SVD0O615 
SV:'  10816 
SVD00817 
j7 Do  n 8 1 8 
r v:  008  19 
SVDQ0820 
5VD30S21 
3VDQ082 ? 
LVDOC82  3 
LVDQ0824 

j V 000828 


ldour-c 


' * \ w «_  V/ 


GO  1 0 220 

£ VDC03.r  7 

8 2b 

DO  8 fa  ..  1 - 1 » Nt 

’VD00828 

< 0 Q — kC  ( 1 ) 

SV DO 08 2 9 

TP=DT 1 <00+1 . I ) 

SVDO083C 

(1  (VOO.LE.3J  .0  T 860 

SVDQC83] 

IF  (lDOUR.NE.O:  jG  TC  840 

SVDOC632 

DO  83l  K=3,KQU 

SV DO 08 33 

' MOD  I F I CAT  OF  DIFFERENCE  TABLE 

AF  TF-R  HAL V I NG  H 

SVDQ0334 

e 30 

U i v , I | T ( <,  ! + 1 <0Q-  l ,K-2 ) * TP 

SVDDG333 

GO  Tu  860 

SVDQ0836 

6 4 L 

DO  880  < - 2 , K0(? 

SVDOD637 

I ■ : C 1 ■ OF  OIF  f ERFNCE  TABLE 

AFTER  HALVING  H 

SVTQ0S3fc 

8 5w 

r i r : i 'UK,,  u . U - 1 ,<00-11  *TP 

SVDQ0839 

CONT 1 NUE 

SVDQ0840 

IFl  = 0 

SVC 008 41 

GO  Tl  2 40 

S V D 0 0 8 4 ? 

SVDQ0843 

6 7u 

IF  L-2 

3 VD 00844 

IT  ■ LSI-.LL.L  GO  '0  300 

SVD00345 

IF  I . -L  TO  880  , 6 » 9 •>  0 

SV DO 08 46 

b 8 o 

LSTC^L:  IC-1 

SVDQ0947 

IF  i 1.  01  C ,EQ.  ; GO  0 89C 

SVD00843 

IF  U SC  I 920,  60»''  L 

S VO 00 8 49 

8 9u 

IFL-  1 

SVDQC660 

GO  TO  3 on 

SVDQ085 1 

9 00 

IF  ( i c - ! - ) 91  ,9  31.  *92  4 

SVDQ085  2 

9 ] u 

LSTC-0 

3 V DO  0 6 5 3 

V2u 

LDOUB -2 

SV0C0834 

GO  TO  6^ 

SVDQ0635 

9 30 

L £ TC  = I 

SVDQ0836 

i_  SC  - o 

SVDO0837 

GO  T C Co 

SVDQ0S38 

94  j 

[ F (LlC  ) 300»S..  , 3 1 

SV  DC  0689 

SVD0C86D 

FI  A L V 1.  1 

SVD0066 1 

9 3 v 

HH=F AC ( 2 1 *HH 

3VDQ0862 

IF  U3TC.LT.  2)  C 3 0 990 

SVD00363 

E R ND  r P 2 3 * L R MD 

SVDO0864 

ITU  ,TEPS!  ZE 

SVDQ08O3 

IE  (RND.GE.Pl)  GO  TO  950 

C'VD0p36  6 

E M A X = ERND 

LSTC=4 

SVDO086  7 

96'J 

L SC  = 4 

SVD00866 

DO  9 7 o I - i ,Nt 

- 

SVDO086R 

) 7 u 

<0(11=1 

5 VDC08  70 

IF  (LSIC-3)  890,39.  , 1 170 

SVD00871 

iVDQ0872 

A- 110 


r\  n r\  cs 


c 

ENTRY  AFTER  ! FL AG=  7 

SVD006  7 3 

yso 

IF  ( IDOUB.EQ.0)  GO  TO  990 

: VDOOE  74 

L SC  = 1 

SVC008 76 

L S T C - 1 

SVDQC6  7 6 

GO  TO  140 

SVDQ0877 

c 

TEST  TO  SEE  IF  H IS  TOO  SMALL  FOR  HALVING 

SVDQ0878 

9 9u 

IF  ( ABS(HH) .GE.HMINA)  GO  TO  1040 

SVDQ0879 

I F l IFl.EU. 7 ) GO  TO  1010 

SVD00880 

IOOvj 

I F L - 7 

SVD0086 1 

GO  TO  1020 

SVDGCbo  2 

c 

SVDO0883 

lu  lo 

HH=HH+HH 

SVDG08b4 

I Fl  = 2 

SVD00885 

J 020 

H = HH 

SVD00886 

GO  TO  310 

SVDOC'887 

c 

SVD008bb 

c 

SVD00889  ; 

c 

ERROR  CRITERIA  PERMIT  DOUBLING 

SVD00890 

103^ 

HH=HH+HH 

SVD0C891 

IF  (ISTC.EQ.l)  GO  TO  1050 

SVD00892  : 

L SC- -3 

SVDG0893  1 

1 040 

LSTC=-1 

SVDQ0894  J 

c 

SVDC0895  ! 

c 

CHANGE  THE  STEPSIZE 

SVDQ0696 

1 0 5 u 

DO  1160  1 = 1. NE 

S VDG  089  7 

<Q0=  K 0 ( I ) 

SVDG0898 

IF  (KOQ.NE.l)  GO  TO  1070 

SVDQ0899 

DT  (6  . I ) =0. 

SVD0090D 

D 1 3 ) =D  T ( 3 * I )*PT(2) 

SVDQ0901 

IF  (D(3).GT.PT( 3) ) LSC=-6 

SVDQ0902 

IF  (LDOUB.NE.O)  GO  TO  1060 

SVDQ090^ 

K UM=  8 

SVDQ09C4  . 

IF  ( D( 3 ) .GE.PTt 5 ) ) DT ( 7 , I ) =DT ( 7 , I ) *P T < 2 ) 

SVD009G5 

D ( 3 ) =D ( 3)/PT( 3) 

SVD00906 

106l 

DT ( 3*1  ) =D ( 3 ) 

SVD00907 

GO  TO  1160 

SVDG05C8 

C 

SVDQ0909 

c 

BEGINNING  OF  LOOP  FOP  CHANGING  DIFFERENCE  TABLE  TO 

SVD0091O 

c 

CORRESPOND  TO  NEW  VAlUE  OF  H 

SVD0C911 

10  7o 

DO  1^30  K = 1 » KQQ 

SVD0C912 

D ( K ) =DT ( K . I ) / P T ( K > 

SVDQ09 1 3 

1 08  o 

IF  (LDOUB.EQ.O)  D(K)=D(K)/PT(K) 

SVDQ0914 

"NvOvj/- *2 

SVDQ0915 

IF  ( <002 ) 1160.1140,1090 

SVDQ0916 

1090 

DO  1130  J=1 »KGQ2 

S VD009  1 7 

IF  (l.DOUR.NE.0)  GO  TO  1110 

SVDG09 16 

C 

SVDG09I9 

c 

halve 

5VD00920 

IT  = KQG 

SVDQ0921 

1 10O 

D ( K- 1 ) =D( K- 1 ) +D ( < ) 

SVDQ0922 

K = K — 1 

S VD0092  3 

IF  ( K + J-KQQ ) 1130,1130,1100 

SVDQ0924 

c 

SVDQ092t 

c 

DOUBLE 

SVDQ0926 

1 1 lo 

DO  1120  K=J,KQQ2 

SVDQ0927 

1 12o 

DIK+I  > =DI K+ 1 ) -D ( K + 2 ) 

SVDQ0928 

1 1 3o 

CUNT INUE 

SVDQC920 

c 

SVDG093C 

1 1 4^ 

DO  1150  K =2 ,KQQ 

SVDQC9  3 1 

A-lll 


IF  t LOOUH.NE.O  ) DfK>=D(K)*PT(K) 

SVDQ0932 

D T ( X ♦ I ) =D  ( X ) *PT ( X ) 

SVDQ0933 

115^ 

C0NT 1NUF 

SVDO093A 

C 

DIFFERENCE  TABLE  NOW  CORRESPONDS  TO  NEW  VALUE  OF 

H 

SVDGP935 

C 

SVD00936 

i i 60 

CONT I NUE 

S V DO 09 3 7 

117J 

H-HH 

' VDQ093P 

IF  ( lOOUB.NL. J)  0 10  50 

SVDG0939 

L F D-  1 

SVDG094Q 

IF  (lSTC.GE.O)  jO  TO  220 

S VD009 A 1 

L DOU  b = - 3 

SVDOC9A,- 

LSC=l STC-XOM 

S VDOr9A3 

GO  TO  220 

SVDQ09AA 

c 

e i . o or  changing  j psize 

SVD009AS 
SVD009A6 
S V”  . C^A  7 

TOP  FEAT ORE  IS  ELIMINATED.  REMOVE  THF  C 

IN  column  one 

SVi  'JOS  A3 

c 

OF  T • '* : 4 FOLLOW  1 N CARDS 

SVDQ(i94V 

C 1 i 8 u 

IE  i 7 - I F l ) 1181.930.2  20 

SV-  009SC 

C 1 191 

If  1 IEl-S)  60,12 UT  .60 

SVDQ095 1 

C 

<•  N REMOVE  T Mi.  2 FOLLOWING  CARDS. 

SVD00952 

1 13u 

X= I Ft -5 

5 V D ( . n 9 5 3 

(220, OF  , , 1570, 1570,1 720.1 720,60, 1 ABO  , 

1AS0.1S30.1S70; » 

X s . D . ' 95a 

C 

ILL.  - A L VALUE  0 ARAMLTER  INTEGRATION  CAN  NOT 

PROCEED 

s V DO C a 5 5 

1 1 9u 

IFl  = 0 

4 (/  DO  c'  7 

GO  TO  310 

SvDC 0 958 

i ZO'J 

WRITE  ( 6 » A 0 0 0 ) 

S V DO  0 A S S 

4 a 00 

0!  v ; (26HLIELAG-3  IN  CALL  TO  DVDQ1  . ) 

SVDQ09SC 

S T OP 

SVDQ096 1 

c 

SVDO09fc 2 

1 2 1 u 

IF  IT-  E I NAL ) 20,1 190,200 

SVD0096A 

c 

c 

ONI  DOES  NOT  ft  NT  THE  INTERPOLATION  FEATURE, 

<lM0VE  ALI.  CARDS 

V1  7 ‘ ’ 

c 

BEL  ft  THIS  POINT  (EXCLPT  FOR  THE  END  STATEMENT). 

and  add  the 

SV  000  Sc,  7 

c 

FIv  HOLLOWING  STATEMENTS. 

SVDOC'966 

C 1220 

{ F L = A 

SVDC0969 

C 

IF  (7E.ji.GT.  T PD ) GC  TO  1280 

SVDQ097O 

c 

GO  T U 3 10 

SVDG0971 

C 128* 

I F L = 3 

SVDQ097? 

C 

GO  TO  310 

SVD0097S 

C 

SVDv.09  7A 

1220 

I fl  = a 

SVDQ0975 

IF  (XSTLP.NE.O)  GC  TO  1270 

SVDQ09 7 6 

T P D 2 = T P D 

SVD00977 

r T 1 ••  U ERROR  WHEN  EXTRAPOLATION  FROM  INITIAL  POINT  IS  REQUESTED  . ' 


’ 2 30 

HH  = HH« T PD  1 * • 

75EO 

SVDO  0979 

C 

S V j .0960 

C 

IF  THE  GST OP 

FEATURE  IS 

ELIMINATED,  REMOVE 

THE 

FOLLOWING  CARD. 

SVDQ098 1 

iFLSMFL 

SVDO 098 2 

I E L - - 1 

SVDQ0983 

GO  TO  230 

5VDQ098A 

c 

SVDQ0985 

[• 

C 

if  TEft  S'  I OP 

FEATURE  IS 

ELIMINATED,  REMOVE 

THE 

A FOLLOWING  CARDS. 

V l ' 

12  AO 

IF  ( ( LGSD.EG 

.0) -OR. ( ifls 

.NE. A) ) GO  T 0 20 

SVDG0937 

LOSE - - 1 

SVDQ0988 

T P D = F A C ( 1 1 

SVD00989 

GO  TO  1820 

A- 112 

GVDQ0990 

n n r>  n nn  n n r~>  o n 


1250  HH=H 

IK  (EMAX.LT.P01)  GO  TO  1260 

C ERROR  IS  TOO  LARGE.  REDUCE  H AND  REPEAT  THE  FIRST  STEP 

IF  ( TPD1.LT .C.EC ) GO  TO  1190 

LDOUB= 1 

LRND=F  AC ( 1 ) /TPD1 
LRND=;ERND*ERND*P2S 

C SET  IFLAG  SO  INTERPOLATION  IS  DONE 

I flag  = 3 

00  to  vso 

IF  THE  GSTOP  FEATURE  IS  ELIMINATED.  REMOVE  THE  C IN  COLUMN  ONE 
OF  THE  FOLLOWING  CARD 
126H  IFL  = 4 

AND  THEM  REMOVE  THE  2 FOLLOWING  CARDS. 

12feu  1 F L r ! F L S 

I K ( IFL.NE.A  ) GO  TO  1 790 
T PD=  T PD  2 
I FLAG=3 

1 2 7u  IF  ( TPD1.GT .TPD 1 GO  TO  1280 
T = TF INAL 
T P D= TPDl 
GO  TO  1 29u 
1 2 8 o T = T OUT 

1 FL=  3 

1290  IF  ( ( TPD.LQ.C.EO ) .AND. ( I FLAG.LE. 2 ) ) GO  TO  310 

INTERPOLATE  FOR  OUTPUT 
1 3Go  TP-TPD 
D ( 2 ) =TP 
KQG2=U 
KDC  = 0 

D(  1 ) =PT ( 1 ) 

DD ( 1 ) =PT ( 1 ) 

DC  1310  <=2.<0M 
DD< 1 )=DD( 1 )+PT( 1 ) 

TP  = TP  + PT ( 1 ) 

131u  D ( X+ 1 ) = ( D ( K ) *TP ) /DD( 1 ) 

GO  TO  1350 

COMPUTE  THE  INTERPOLATING  INTEGRATION  COEFFICIENTS 
1 32o  <QQ2  = 1 

L=KOM-KDC 
K DC  = KDC+ 1 

133U  IF  (L.LE.U)  GO  TO  1350 
TP  = o. 

K = L 

J- L+XDC 
1 34U  J$=J-K 

T P = TP+GAS  ( 1C  ) * D(  JS*  1 ) 

K = K-  1 

IF  ( < . G T . C ) GO  TO  1340 

D ( J ) - TP 

O ( J i IS  THE  INTEGRATION  COEFFICIENT  FOR  THE  INTERPOLATION  WHICH 

C RRLSPONDS  TO  GAM ( J-KDC  *KDC ) . 

L 1 L - 1 

G 0 TO  1330 


SVDQfv.91 
V DOC'992 
SV  00991 
SVDQ0994 


SVDQ0996 
SVD00999 
SVDQ1000 
SVDQ1001 
SVDQ10U2 
SVD01003 
SVDG1C04 
SVD01005 
SVD01006 
SVD01007 
SVD01008 
SVDG1009 
SVDQ1010 
SVDQ1011 
SVD01012 
SVD01013 
SVD01C14 
SVDC1015 
SVDQ1016 
SVDQ1C17 
SVD01018 
SVDQ1019 
SVDQ1020 
SVDQ1021 
SVDG1022 
S V DQ 102  3 
SVDC1024 
SVDQ  1025 
SVDQ 10. '6 
SVDQ1027 
SVDQ  . 26 
SVDQ 1029 
SVDQ1C 30 
SVOQ1031 
SVDQ : . 32 
SVDQ 1033 
SVDQ  103a 
SVDQ 1035 
SV DO  1C  36 
SVDQ 1037 
SVDQ1C3B 
SVDQ1039 
SVDQ 1040 
SVDQ10A1 
SVDQ  1042 
SVDQ  104  3 
SVDQ 1044 
SVDQ 1045 
SVDQ  1046 
SVDQ 1047 


A- 1 1 3 


c 

c 


136- 


lib-i 


13  7- 


I 3b  - 


1406 
141  j 

14  2 0 


C 

(_ 

C 

r 

C 


C 

c 


c 

N_ 

r 

c 

c 

Q 

c 


c 


END  01  COMPUTING  INTEGRATION  COEFFICIENTS 

PERFORM  THE  partial  STEP  INTEGRATION 

J = 0 

DO  142-  1 = 1.  NE 

;F  (KUS.Lt-.Q)  <DD=  I ARSl  KD  ( I ) ) 

;F  (KDC.GT.iCDD)  GO  TO  1410 
TP  ~ . 

KOU"  l I ) + KQQ2 
L ~ KQQ-F DC 

IF  ( L.LE.u)  GO  T ) 1370 
TP  = TP  *D ( TOO ) *DT ( L . I ) 

Y GG - K Q Q ~ 1 

IF  (KOO  1390.1390.136C 
K = J + KDD 
L = KDC 
L = L-  1 

IF  ( .EU.u)  GO  TO  1400 
TP=TP*HHfYN ( K )*F AC ( L ) * TPD**L 
K=K-  1 

GO  TO  1380 

F ( 1 ) - T P 

GO  TO  142U 

Y ( K ) = YN ( K ) +HH*TP 

J= J + KDD 

CONT I NOE 

IF  ( KDC.NE.KDMAX  ) GO  TO  132 C 

end  . f partial  step  integration 

IF  OIL  G:  TOP  FEATURE  IS  ELIMINATED.  REMOVE  THE  C IN  COLUMN  ONE 

of  the  following  card 

GO  TO  310 

ALL  ST  a T EMENT  S bELJrt  THIS  POINT  SHOULD  THEN  EE  REMOVED  (EXCEPT 

FOR  ThL  END  S'  AT  hi'  ..NT  ) 

I E ( L-jSE  ) 1800. 311  ,18  10 


SECTION  FOR  COMPUTING  GSTOPj 
FNTRY  SVDQGtNG.NSTOP.G.GT ) 


SvDQ 104b 
SV  DQ  10  4 9 
SVDQ 1060 
SV  DO  106  1 
SVDQ  1062 

- VDG  106  3 
SVuG  1u5-3 
SVDQ  1066 
SVDQ  1 G6o 
6 VDC IDS'7 
S V * j 1 0 6 o 
SVDQ 106 9 
S V DQ  1060 
SVDG106I 
:>  VDGi  106  2 
S V D G 1 06 ? 
S V DQ 1064 

5 V dG 106  6 
S VDO 1066 
j>  V u — -06  7 

6 V— *G  - C 0 c 

— v — u - 0 o .■ 
iV^  Jiu  \ 

S V DO  1 J 7 . 
SVDQ i 0 72 
6 V D S i ..  7 3 
SV'JC  i J 7 -i 
SVDQ  10  76 
SvDQ1076 
S V DO  1 C 7 
SVDGi- 7 o 
SVDQ!  j ■ '1 
S v jG 1060 
SvDGljc. 
S V D-w  luti- 
SVDQ 1 Oo 3 
SVDG1064 
SV0G1086 
S V D C -0b6 
SVDQ10B7 


VARIABLES  IN  THE  CALLING  SEQUENCE  HAVE  THE  FOLLOWING  TYPES. 

INTEGER  NG.NSTOP 
REAL  G ( 1 ) . GT ( 1 J 

A GSTOP  IS  DEFINED  AS  A RETURN  WHICH  IS  MADE  TO  THE  USER  WHEN  A 
USER  SPECIFIED  FUNCTION  G PASSES  THROUGH  ZERO.  THE  USER  MAY 
SPECIFY  ANY  NUMBER  OF  FUNCTIONS  G OF  TWO  TYPES.  ZEROS  OF  THE 
TYPE  ARE  LOCATED  WITHOUT  REQUIRING  A DERIVATIVE  EVALUATION 
BEYOND  THE  ZERO.  THIS  TYPE  OF  GSTOP  REQUIRES  THAT  G BE  EVALUATED 
BEFORE  EACH  DERIVATIVE  EVALUATION.  ZEROS  OF  THE  SECOND  TYPE  ARE 
LOCATED  USING  INTERPOLATION.  WHICH  IS  MORE  ACCURATE  THAN  THE 
EXTRAPOLATION  USED  IN  THE  PRECEDING  CASE  AND  ONLY  REQUIRES  ONE 
evaluation  of  g per  step,  thus  one  should  use  the  second  type  of 
GSTOP  Jr  POSSIULL.  USERS  NOT  USING  THE  GSTOP  FEATURE  NEED  READ 
NO  FURTHFK. 


VdG'j  IS  USED  AS  A SET  UP  CALL  TO  INDICATE 
SR  TYPE  OF  GSTOP-.  SVDQG  SHOULD  BE  CALLED 


A CHANGE  IN 
JUST  3LF0RE 


THE  NUMBER 
OR  JUST 


oV DQ  - 086 
SVDQ 1069 
SVDQ 1090 
SVDQ 109 1 
SVDC 1092 
SVDQ 1093 
jV CG 1094 
FIRSTSVDG1  >6 
SVDQ 1096 
SVDQ 1097 
SVDQ  109ts 
6 V D Q 1 0 9 9 
SVDG11G0 
SVDQ 1101 
SVDG1102 
6 V DQ 1 1 o 3 
SVDQ  1 1 -h 
SVDQ1106 
oVDQ 1 106 


A- 1 14 


n r»  n n r>  r\  r.  o n O n n n r nononnoonr  n n n n n r r\  r,  r*  o n r < ■ r r r^r^r^rsry 


c 

c 


c 

Q 

c 

c 


AF  T'  R CALLING  SVDQ  IF 

1.  ONE  WANTS  TO  TLST  FOR  GSToPS  BEGINNING  WITH  T HE  FIRST  STEP. 

2.  A JOB  IS  3FING  RUN  AFTER  ANOTHER  JOB  THAT  USES  THE  GSTOP 

( EATURE.  SVDQG  MUST  BL  CALLLD  EVEN  IF  ALL  THE  VARIABLES  IN 
THE  NEW  JOB  ARE  ThL  SAME. 

IN  ABLUTION  SVDQG  MAY  BE  CALLED  AT  ANY  TIME  IN  THL  INTEGRATION 

10  CHANGE  THE  NUMBER  OR  TYPE  OF  GSTOPS. 

THE  USAGE  Of  THE  VARIABLES  IS  GIVEN  BELOW. 

NO-  THL  NUMBER  OF  COMPONENTS  IN  G TO  BE  EXAMINED  FOR  A Z F_Ru. 

IF  SVDOG  IS  CALLED  AFTER  THE  FIRST  STEP  OF  THE  INTEGRATION. 
THEN  G IS  EVALUATED  FOR  THE  FIRST  T I Ml  AT  THE  END  OF  The 
NEXT  STEP  AND  THUS  A GSTOP  IS  NOT  DETECTED  IF  G CHANGES 
SIGN  ON  THE  CURRENI  STEP.  IF  IT  IS  IMPORTANT  THAT  G uE 
EVALUATED  IMMEDIATELY  SET  NG  EQUAL  TO  THE  NEGATIVE  OF  ThE 
NUMBER  OF  COMPONENTS  TO  BE  TESTED  FOR  A ZERO.  SETTING  NG 
LESS  THAN  ZERO  WHEN  CALLING  SVDOG  BEFORE  THL  FIRST  STcP  IS 
NOT  NECESSARY  AND  IS  LIABLE  TO  BE  DISASTtROUS.  IF  SVDQG  IS 
CALLED  DURINu  THE  INTEGRATION  THE  FOLLOWING  STATEMENT  SHOUL 
BE  A GO  TO  (THE  COMPUTED  GO  TO  FOLLOWING  THL  CALL  TO  SVDQi  ) 

NSTCP=ThE  NUMBER  OF  COMPONENTS  OF  G THAT  MUST  BE  EXAMINED  FOR 
A ZERO  BEFORE  COMPUTING  THE  DERIVATIVES  (FIRST  TYPE  OF 
GSTOP).  IF  NSTOP.LT. 0 OR  N STOP . GT . ABS ( NG ) IFlAG  IS  SET 
EQUAL  8 AND  AN  IMMEDIATE  RETURN  IS  MADE.  IF  NSTOP.GT.O. 

G(1 ! »G(2) ....  .G< NSTOP)  ARE  EXAMINED  FOP  A ZERO  BEFORE  EACH 
DERIVATIVE  EVALUATION.  THE  REMAINING  COMPONENTS  (IF  ANY) 

ARE  EXAMINED  AT  THE  END  OF  EACH  STEP.  WHEN  A GSTOP  IS  FOUND 
THE  SUBROUTINE  SETS  NSTOP  EQUAL  TO  THE  INDEX  OF  THE 
COMPONENT  OF  G RESPONSIBLE  FOR  THE  STOP. 

G-  A VECTOR  CONTAINING  THE  CURRENT  VALUES  OF  T f E FUNCTIONS 
WHOSE  ZEROS  ARE  TO  BE  DETERMINED. 

GT^  A VECTOR  WITH  THE  SAME  DIMENSION  AS  G USED  OY  THE 
SUBROUTINE  FOR  TEMPORARY  STORAGE. 


RETURNS  FROM  CALLING  SVDQI 
A'  FOLLOWS.  (WE  USE  NSTOP I 
IFlAG 

= 9 COMPUTE  G(  NSTOP  I 4-1)  ,....G 


WITH  IFLAG. GT 
TO  DENOTE  THE 


,8  SHOULD  BE  INTERPCTED 
INITIAL  VALUE  OF  NSTOP, 


G < A B S ( N G ) ) (THE  COMPONENTS  OF  G 


ZEROS  TO  BE  LOCATED  USING  INTERPOLATION).  THEN  CALL  SVDQI. 
NO  RETURN  IS  MADE  WITH  I FLAG  = 9 IF  NSTOP I = ABS ( NG ) . 

= 10  COMPuTl  G( 1 ) *G( Z ) . . . . .GINS  TOP  I ) (THE  COMPONENTS  OF  G WITm 
ZEROS  TO  3E  LOCATED  USING  EXTRAPOLATION).  THEN  CALL  SVDb... 
NG  RETURN  IS  MADE  WITH  IFLAG=10  IF  NSTOPI=0. 

II  o ( NS T OP  ) IS  APPROXI MATELY  ZERO.  IE  THERE  ARE  NO 

DISCONTINUITIES  SIMPLY  CALL  SVDQI  TO  CONTINUE  THE  INTEGRmT 
= 12  G(NSTOP)  CFIANULS  SIGN,  bUT  THERE  IS  DIFFICULTY  IN  CONVERGE 
TC  A ZERO.  THE  USER  MAY  WISH  TO  MAKE  A SPECIAL  CHECK  TO  BE 
CERTAIN  THAT  EVERYTHING  IS  ALi_  RIGHT.  TO  CONTINUE  THE 
INTEGRATION  CALL  SVDQI. 

REAL  Ru 

DIMENSION  GI ( 2) ,RG( 3 ) 

INI T IALIZE  FOR  GSTOPS 
NG A = IAbS(NG) 
l r,SS  = -NGA 


01, 


jVLu 1 . u 7 
SVDQ 1106 
S V I 513 
SVDQli 10 
S VDQ  Ixll 
S VDQ  1 1 i x 
SVDQ 1 i x 3 
SVDQ i 1 1 A 
j VDQ  HIS 
SVDQ  lilt 
SVDo  1117 
SVDQ 1 1 lb 
SV  DC  1 1 1 9 
SVDQ  1 1 20 
SVDQ  112  1 
SVDQI 1x2 
SVDQ  1 1 2 3 
S V DQ  1 i A** 
DS  V DO  1 1 x 5 
. S V DG 1 1 2 6 
SVDQ 11x7 
SVDQI 128 
SVDQI 129 
SVDQI 130 
SVDQ 1 i 3 1 
SVDQ 1132 
SVDQlib3 
SVDQI  1 32 
SVDQ  113:, 
SVDQ 1136 
S VDQ 1137 
VDQl 1 36 
S i i i ^ 
SVDu  1 i 2-G 
SVDQ  1 1 *-»  1 
S V DQ 1442 
SVDQ  1 i'+j 

oVDUi iHh 

SVDQ 1125 
SVDQ 1 1h6 
SVDQ 1127 
Q 1 1 28 
SVDQ 1 129 
SVDQI  1 PO 
SVDuilEl 

bVuCf  j.  . ‘ ’ c 

1153 
•SV  >Q115A 
S VDQ  1155 
SVDQ 1 1 p6 
SVDQ 1157 
SVuQllES 
S V DU  1 1 s c 
SVDQ  1 1 o(' 
SV  1 1 b 1 
SVDQI a 0 x 
SvDu 1 1 b 3 
S V D Q 1 1 6 2 
SVDQ 1 lo5 


A-  115 


1600  NST0P=IGK 
NSTOPI  = IGK 
I F LGS= I PL 

COMPUTE  INITIAL  VALUE  FOR  RG  (=RATIO  OF  PARTIAL  STEPSIZE  WHERE 
G I S KNOWN/ THE  INTEGRATION  STEPSIZE) 

I F ( IFLG.EQ.O)  GO  TO  1610 

RG ( 3 ) =F  AC ( 1 ) 

RG ( 2 ) =O.EO 

IF  ( ( 1FLG.EQ.2) .AND.C  IGK.LT.LGSS)  > RG ( 2 ) =FAC ( 1 ) 

G 1 - T i j 1 6 2 '•> 

RG(3)=E.CL 
R C ( 2 ) - - F A L ( 1) 

IF  ( i GSF . L T .0 ) RG 131*1  PD 
1.0 SI  --3 


16  lv 
162- 


LObD-L 

b VDQ 1 1 bb 

uG  Sf  1 

SVDQ1 167 

I FLG  = -2b 

S VDQ  1 166 

IF  (NG.UF.O)  RETURN 

S V Du  116  9 

IFlG=-IFL 

S VDO  1170 

1 2 3b 

L GSD-N  S T OP 

bVDQ 117 1 

IF  (luSD)  1 190. 1A60, 1AA0 

3 V u Q 1 i 7 / 

1 hAu 

!FL= 16 

S V DO  11/3 

GC  TO  1 ‘4  7 0 

S V UO  117A 

c 

ENTRY  WITH  I F L= 1 6 

Sv  DO  1 1 lb 

LA5o 

LGSS-u 

SVDu  i.  i.  lb 

If  (LGSD-NGA)  1 A60 . 1A80 . 1 190 

o VDO 1177 

1 A6u 

LGSS-LGSD+ 1 

b V Du  1 1 7 b 

I FL=  1A 

S VDQ 1 1 79 

I A 70 

1 F L AG= I FL-6 

u VDO lie 

GO  TG  316 

j V o C/  i A 6 ; 

c 

ENTRY  WITH  IFL=iA 

SVD011&2 

1A80 

CO  1A90  1 = 1,  NGA 

SVDQ1163 

1 A9b 

G T ( I ) = G ( I ) 

3 V 2> vW  i i 6 M 

GO  TU  1730 

SVDQ1186 

L 

END  OF  INITIALIZATION  FOR 

GSTOPS 

ov'oQiwoO 

Q 

J V O ‘W  A . C / 

c 

ENTRY  TO  EVALUATE  G AT  THE  END  OF  THE 

STEP 

SvDOliOb 

150U 

LGSE  = 1 

SVDQ  lifaV 

15  1. 

I gk=lgss 

SvDG  1190 

iflg=o 

SVD01191 

I F L = 9 

S V D 0 1 1 V 2 

GO  TC  310 

SVC'O  1 19  - 

c 

ENTRY  TO  EVALUATE  G BtFoRE  EVALUATING 

THE  DERIVATIVES 

U V Du  1 1 9u 

1620 

I F LG  - 1 F L 

SVD 01196 

IFL=  10 

b VDO  1 1 96 

1 5 3b 

I F LAG- 1 U 

SVD01197 

I GKM  = lgsd 

SvDuii9o 

l 5 A b 

I GK  = 1 

j V DQ  1 19  ■> 

1 6 5 0 

GO  TU  316 

SVDU  1/uP 

1 66u 

I G<  = l GK  + 1 

5 V DC  I c o 1 

IF  ( IGK.GT. IGKM ) GO  TO  1650 

3 V 0 G 

C 

ENTRY  WITH  IFl=9,10,  AND 

17 

S V D;.  i 2 0 3 

r 

TEST  FOR  G CHANGING  SIGN 

S V Du  12 Oa 

. 1 7 0 

IF  (G( IGK)*GT( IGK) ) 1600. 

1680,1590 

S V DO  12  05 

I6bu 

IF  ( GT ( IGK) .NE.O. ) GO  TO 

1600 

Sv  DO 

IF  (TL.EO.TG)  GO  TO  1660 

S V u 0 1 2 u 7 

169b 

IF  (tUSE.GT.G)  GT ( IGK ) =G( IGK) 

^ VDO i 2 u B 

GO  TO  1660 

v'  u 0 1 Z 0 9 

<3 

'j  CHANGb S SIGN  — PREPARE 

FOR  ITERATION  TO  FIND  ZlRO 

SVDQ 1 2 10 

SV  Du  12 1 i 
SVC'o.  1212 
S VuG  i c 1 3 
SV  DU  12 1 A 
SV001215 
S VDu  12  lb 
SVDQ1217 
S VDO 1216 
bVDO  12lv 
S VDO 12/0 
SVDu  12/  1 
V D 0 12/2 
S VDu  1 / / 3 
G V UQ  12/2 


A- 116 


f 


G I t ' i G T l I GM 
EPS..S  = RND 
I M - 1 6 
O'-  1 

GO  To  1 1> A o 

END  ^F  PREPARATION  TO  bEGIN  THE  ITERATION 

LNTRi  * l TH  l F L = 1 Ci 
1 TtKATL  TO  FIND  Go TOP 

K = i 

IT  l (GI  <2  » *G(  ISM  ) .GT.O.  ) K-2 
It  ( ABSTGI  <K)  ).GT.AbS(G<  I GO  ) ) GO  TO  16  AO 
CONVERGENCE  PROBLEMS 
L GSC  -L  GSF.  - 1 

IF  ( l GSE.EQ. t -5 ) ) EPSG3=PT31 
E P GS-EPSGS*PTSA 
G I ( M = G ( I GM 
RG  I M -«u ( 3 ) 

,)E  C AN  T ITERATION  (GIvEo  NEW  PARTIAL  3TLP3IZF./H) 

TPD=RGl 1 ) -( GI ( 1 ) * l RGl 2 ) -RG ( 1 ) 1 ) / ( 31 ( 2 > -G I ( 1 ) ) 

T - TL * TPD*HH 

I 6T  FOR  CONVERGENCE  OF  ITERATION 
IF  { ABS ( TPD-RGI 3 ) ) .LE .EPSGS)  GO  TO  1360 
RGl  3 ) = T PC 
oC  TO  1300 

IF  I lO-IF L > 1660*1700*100 
IF  ( IGKM.NE.NGA ) GO  TO  1710 
IF  i L G3E.GT . ( -3 ) ) jO  TO  1690 
iF  ( L 3 T C • NI • A ) GO  TO  lt>70 

Ej,TIMATl  ERROR  --  03  T OP  IS  THE  RESULT  OF  EXTRAPOLATING  FROM 
THE  INITIAL  POINT 
T PD  1 =TPQ 

R C < i > = T PD 
GO  TO  123o 
I F L=  1 1 

IF  U GSE.L T . t -A  ) ) IFl  - 12 
I F L AG= I F L 

T ST  TO  SEE  IF  bSTOP  IS  PRECEDED  PY  ANOTHER  STOP 
, F i ( ( r-IOUT ) *HH.LL .n.E  .AND. ( ( T-TF I NAL ) *HH.LE.0.E0 n GO  TC 
i r is 
RGl  ) = T PD 

ifls=ifl 

G •-/  TO  2 o U 
L GST  = 1 
[ F u - I FLG 

IF  ( I F L . L T . 0 ) GO  TO  2 u 
I GKM  =NG A 
I FL= IFlG 
GO  TO  310 
I FL= 1 7 
r F i AG=9 
I GKM  - N G A 
GO  TO  313 

ENTRY  *ITH  I FL  = 1 1 AND  12 

SET  PARAMETERS  TO  INDICATE  A GSTDP  HAS  nEEN  FGG*D 
GI  (NS  TOP  I >“v.. 
wGSE - 1 
I GM  No  A 

T G = T l 


PRECEDED  PY  ANOTHER  STOP 
•AND. ( ( T-TF I NAL ) *HH.LE.0»E0 ) ) 


GO  TO 


GO  TO  2s 


I FL  = 1 1 AND  12 
L R S I O INDICATE 


H As  nEEN  FOG  tJ 


SVDO  I*.  3 

-VDQl2cb 

S V O'  o 1 2 2 7 

S VDG 1 * 

S V D U 1 2 c ' i 
SVDG  i c 30 
3 VsQ  1 *.  6 1 
S V Do  1 <.  - t 
SvDG 1 i 

o V D y * i.  S A 
SVl's  1 2 3 S 
SVDG  1 ^ s6 
SVDO 12  s 7 
S VUG  12.3b 
SVDG  1 2 A : 
S V o 0 1 1-  ^ ( 

SVD  , 12h  j 
b W A E.  **  «. 

S V DQ  1 c.  *-*  . 

b V li -*3 
dVDs12aI 
o V DC  1 2 -+C 
G V D G 1 l.  h i 
j V D G i 2 *♦  o 
S V 10  12**  9 
S VD., 123' 
S VDQ 1 2 s ] 

V ... 

SV--G  ii3 . 
SVDG 12s* 
bV^^l. . ’ 
S v ljC  i<-  sc 

o Vug  1 ^ i 

jVu/g  lc  >0 
J V i)Q  - ■ 
S VDQ  ^ u 0 
S V jO  x e.  C j. 
3 v o . 1 c c t 
S V D G 1 2 to  > 
S v DO 12bA 
S VuO  . L I.  - 
3 V D Q 1 2 ( 
SVDG  1267 
S V DG  1 2 oe 
SVDG 126  - 


S V DG 1 2 ? < 
S V D L'  1 2 7 .. 
SVDG  it  7; 
nVD(.4i  7<- 


^ \l  .7  G 1 E / t) 

b V D v*  2 «l  / * 
O v be,  Ieo, 

b \J  D v.  i t o t 
b V L)Q  1 c c 
S VDw  i c . 


A-l  1 / 


IF  (IFlg)  17A0.176U.1770 

SVDQ 128a 

l lUv 

i r ( I f L . I T . 1 

3)  GO  10  17  5 0 

GVDO  1 2d3 

IF  ( I F L S . E U . 

f 

c 

o 

—i 

O' 

C 

c 

SVDQ  1266 

I F L = -I F LG 

SVDQ  ic  b 7 

GO  TO  3iV 

S V D Q 1 2 o fe 

1 1 {j 

HH  -h 

S V DQ  1<:09 

GO  TO  2 o u 

S v t/Q  12  90 

TPD*Q.fc u 

SVDQit;9l 

T = T L 

gVDg lc 9^ 

L g S E - --  2 

SVDQ 12S  3 

GO  TU  1 3 o - 

SVDQ1294 

[ ( 7 o 

If  (1FLG-3) 

220,20  c, 200 

SVDu  1*:95 

178c, 

IF  ( luSE.EC. 

( - 1 ) ) CO  TO  1 7°0 

SVDG1296 

egse=-i 

SVDQ 1297 

GO  TC  lt?u 

SVDG1296 

1 / 9 u 

TPD=RG ( 3 ) 

S v D Q 1 2 v 9 

T = T L + T PD*HH 

bVDulSof 

IF  ( LOSE.  Nr.  . 

(-1 ) ) .0  TO  1670 

oVDQiSol 

I Fl-  I r Li. 

LVtuI  ju.; 

LOSE  - -3 

3 v Du  1 3 o 3 

GO  To  i t> l c 

A V 3l;  1 3 o^ 

1 O V.  Q. 

r f t l ; : e ♦ 2 j 

13  6 0,1  C 0 • 3 1 j 

SV  D g 1 3 0 5 

u u 

IF  IT.  .Ll.J 

• LG)  G . T U 310 

gVDQ13Q6 

LGSE--C 

S V D Q 1 3 o 7 

■ 2 C 

1 Flg-^  i F L 

YVDu 1 3o6 

I FL- 17 

SVDQ 1 3 U 9 

I F LAG- V 

oVDU  1310 

IF  (iGSD)  1340,1 3 4l, 1530 

FND  ./r  SECTION  FOR  COMPUTING  GSTOPS 


SVDC1311 

jV’DyJi  J it 

SVDU1313 

b V Lvji  tiiH 

IN  Su'lL  APPLICATIONS,  FOR  txAMPLE  MULTIPLE  QUADRATURE,  MORE  T NAN  SVuGiJlb 
, >NE  INTEGRATION  oUlROOTINE  IS  REQUIRED.  THIS  IS  NOT  NECESSARY  IF  SvDui3ib 
ALL  -ii  THE  VAR  I AliLLo  ASSOCIATED  W TH  ONE  INTEGRATION  ARE  SAVED  SVDQ1317 

OuTSIDl  or  TIE  INTEGRATOR  WHILE  DOING  OTHER  INTEGRATIONS,  AND  SVD-.131 

THE',  ft  ST  OR  INC  ThEM  WHEN  NEEDED.  THESE  VARIABLES  CAN  3E  RESTORED  SVDQ 

BY  CALLING  AN  ENTRY  WHICH  CONTAINS  ALL  OF  THE  VARIABLES  IN  THF  SV.  Qls20 

CALI  I NO  "EDUENCL  ADD  ALL  OF  THE  VARIABLES  THAT  MUST  BE  SAVED  Sv 001321 

WHLNLVlR  CHANGING  to  A DIFFERENT  INTEGRATION.  (THIS  ENTRY  MUST  jV:u1322 

BE  ALj  l.  D SY  THE  UboR  AND  SHOULD  BE  FOLLOwED  BY  A RETURN  ST  ATE  MEN  T .oVDG  j2  ; 
AFTER  CALLING  I His  ENTRY  EITHER  SVDU  OR  SVDC1  SHOULD  BE  CALLED  SVDQ  1 3<t4 

DEPENDING  ON  WHETHLR  THE  INTEGRATION  IS  BEING  STARTED  OR  NOT.)  SVDQ1325 

THl  VARIABLES  WHICH  MUST  BE  SAVED  ARE-  SVDD13«ifc 

N L , N V , K DS  , K.DMA  X , K.SOU  T , L DOUb  , LFD  , LSC  , L ST  C , I FQ  , I F L.  S , K QM  ( !NT_GERS)SvD_,..3 

F.RND,  ;DEC»LRRMA»E2HAvl.E2HFAC,E2HMAX  ,RNDC  (REAL  ) SvDGli 

HH,  L UT  , TL  (REAL)  g V o 1 3 

IF  T HI  uSTOP  FEATURE  lo  JSLD,  THE  EVALUATION  OF  G REQUIRES  A.m  SvDu13 

INTEGRATION,  AND  THIS  INTEGRATION  MAY  RESULT  IN  ANOTHER  GSTOP.  jic.,13 

Then  .jOMC  additional  variables  must  be  saved.  sc  do  is 

IN  many  APPLICATIONS  NE ( =NEO) ,nv ( =sum  of  orders  of  the  SVOO 1 3 

DIFFERENTIAL  EQUATIONS)  ,<DS(=ICD)  , AND  K DMAX  ( = MAX  I f‘UM  ORDER  OF  ANY  SVC.. 13 
DIFFERENTIAL  EQUATION)  .*  I LL  BE  THE  SAME  FOR  EVERY  INTEGRATION,  SVDG13 


TUP.L  Ij  JSLD,  THE  EVALUATION  OF  G REQUIRES  An  SvDul'oO 

THIS  INTEGRATION  MAY  RESULT  IN  ANOTHER  GSTOP, 

3 N A L VARIABLES  MUST  BE  SAVED.  SCDQ1332 

IONS  NE ( = NEQ ) , N V ( =SU M OF  ORDERS  OF  THE  SVOO  13  33 

,T  IONS)  ,K.D5<  =<D)  , AND  < DM  AX  ( = MAX  I '"UM  ORDER  OF  ANY  SVDC  ..  3 j- 
\ T I ON ) ,v  1 LL  BE  THE  SAME  FOR  EVERY  INTEGRATION,  SvD01335 
TT  PE  SAVED.  SVCu  13 36 

SVDQ'  1337 

MAKING  CERTAIN  CHANGES  IN  THIS  SUBROUTINE  ARE  SvDQi.-ito 
Tut  LISTING.  TO  FIND  THESE  INSTRUCTIONS,  SEE  SVDQ  133 

S V Du  1 3 A 0 
SVDQ  i 3 a 1 

GSTOP  CAPABILITY,  SLE  OUST  BELOW  CARDS  SEQUENCED  SVDQ 1342 


IN.  (FACE  NEED  NOT  PE  SAVED. 

I NoTPUC  : I ONS  FOR  MAX.  I NG  CERTAIN  CHANGES  IN  THIS  SUBROUTINE  ARE 
GIVlN  THROUGHOUT  Tut  LISTING.  TO  FIND  THESE  INSTRUCTIONS,  SEE 


. i i M I 'i  AT  E 
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5.AA9  *A91  *6  3 .9A7 ,980  . x85,9r/9*  VND  1076. 

THI:  MAKES  THE  SUBROUTINE  SHORTER  AND  REDUCES  O/ERHEAD  A LIT  i l C • 

10  REMOVE  1 1 1 L INTI  RPtU.A  1 I ON  CAPAbILITY,  SL  I JUST  L>L.-Ow  LARDS 
.1  OuENC  LD  B 16  AND  966  « 

THE  OSTOP  FEATURE  MUSI  ALSU  BE  ELIMINATED  SINCE  IT  RF  Qu IRES  THE 
INTERPOLATION  CAP Ab I L I T Y • IF  OUTPUT  POINTS  ARE  NOT  HIT  tXACIL: 

( THEY  ARE  HIT  EXACTLY  IF  HMAXA.  L E . AiJ  S ( DEL  T ) , AND  INITIAL  H- 
DE  LT  * ( ( -K  ) ) * K = 0 * 1 * 2 • • • )*  THEN  1 F L AG  = 3 ON  TuE  FIRST  STEP  Ti-iAT 

( I - TOUT  ) *H.GT .0  (SEE  THE  USAGE  OF  DE L T ) • IFLAU  IS  SET  EQUAL  TC  A 
ON  THE  LAST  STEP  T HAT  ( T- TF I NAl I *H. L E . 0 . 

THE  OUTPJT  OPTION  GI/ES  OUTPUT  OF  VARIABLES  USED  IN  THE 
INTEGRATION  ON  EVERY  STEP  THAT  NEQ.LE.O.  (WHICH  OF  COURSE  MUST 
SE  SlT  AFTER  THE  INITIAL  CALL  TO  THE  INTlGRATOR)  TO  TlIMINAT-. 
THll  OPTION*  SEE  JUST  BELOW  CARDS  SEQUENCE!  580  AND  803. 

1 1 (L  CHElK.  OPTION  WHlN  ADDED  TO  THE  OUTPUT  OPTION  OUTPUTS  EVERY 
V A R 1 A b L t IN  THE  CALLING  SEQUENCE  JUST  AFTER  ENTERING  AND  JUST 
BEFORE  LEAVING  Tilt  INTEGRATOR  WHEN  NEQ  = 0.  THIS  OUTPUT  IS 

SUM  TIMES  UoEFUL  IN  DEBUGGING  A PROGRAM.  TO  INCLUDE  THIo  OPTIi.  , 
SEL  J . ST  bELOw  CARDS  SEQUENCED  3S9  AND  5 A 8 • 

L ND 


) V D u 1 i a 3 
. V D - i J1"- 

•>  v ; ' o l j **  5 

jV  DC.  1 
V DO  1 3 H 7 
SVDulJAo 
oVDQ 1 3h5 
SVDQ13P0 
SVDQ135  1 
SVDO  1 3 6 J 
SVDQ13S 3 
SVDO i 36A 
SVDQ1355 
5VDQ1366 
SVDO  136  7 
SVDQ1360 
3 V 0 u 1 3 3 
1360 
o V DO  1 3 6 1 
S v Du  1 3 b 2 
-iVDbiio. 
SVDG13o<-* 
SVDO  1366 
S V DU  1 366 
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INSCRIPTIONS  UF  PROGRAM  LOGIC,  SUBROUTINES 
AND  USL  OF  TEXT  EQUATIONS 


A FURI'LO  chart  of  the  overall  program  is  shown  in  Figure  A-l.  The  purpose 
of  each  subroutine  was  indicated  by  comment  cards  in  the  listing  presented  in 
Appendix  A-4.  A brief  summary  indicating  the  usage  of  the  text  equations  is 

presented  as  follows. 


DATAIN  loads  input  and  calculates  various  constants  (in  the  nature  of  input; 
which  are  used  throughout  the  program.  For  example,  DATAIN  calculates  thermal 
diffusivity  and  dimensionless  frequency  from  constituent  inputs.  DATAIN  also 
equalizes  all  thermal  properties  to  represent  a homogeneous  solid  if  IH0M0=1. 

Function  TAU  defines  the  dimensionless  temperature. 

SLDF'AZ  solves  Eq.  (12)  for  wall  temperature.  If  burn  rate  is  specified, 

ITERA  0,  only  one  pass  is  made  to  calculate  the  wall  temperature  associated  with 
that  rate.  If  ITERA  = i,  burn  rate  and  wall  temperature  are  solved  by  iteration  in 
association  with  subroutine  GASFAZ.  SLDFAZ  also  calculates  certain  constants  that 
are  associated  with  Eqs.  (4),  (5)  and  (22)  and  are  needed  to  calculate  the  thermal 
prof i les. 


L 
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FIGURE  A-l.  FORFLO  Chart  of  Overall  Program 


If  ITERA  = 0,  GASFAZ  solves  Eq.  (23)  for  flame  height  and,  with  AMULT1, 
solves  Eq.  (24)  for  an  effective  particle  size.  If  ITERA  = I,  the  trial  wall 


r 

temperature  from  SLDFZ  is  used  to  calculate  the  Eq.  (23)  flame  height.  This  is 
compared  to  the  Eq.  (24)  flame  height  in  AMULTI , and  Iterations  on  wall  temperature 
proceed  until  the  two  agree  to  within  a preassigned  tolerance. 

MELTLR  solves  Eq.  116)  for  the  temperature  profile  in  the  melt  layer. 

Certain  constants  associated  with  Eq.  (16)  are  calculated  also.  Surface  tempera- 
ture is  known,  and  melt  layer  thickness  is  determined  from  the  known  melting  point. 

LAYRS  solves  Eqs.  (17)  and  (18)  for  the  temperature  profile  in  the 
succeeding  layers  in  depth,  beginning  with  the  melting  point.  A satisfactory 
solution  is  tested  in  terms  of  the  dimensionless  temperature  and  gradient  tending 
to  zero  at  some  adequate  depth  (number  of  layers  traversed). 

LAYRSP  solves  Eqs.  (35)  and  (36)  for  the  perturbed  temperature  profile  in 
the  layers,  using  Eqs.  (34)  and  (38)  to  start  at  some  adequate  depth  and  working 
up  to  the  melt  layer. 

MLTLRP  solves  Eq.  (28)  for  the  perturbed  temperature  profile  in  the  melt 
layer,  using  the  differential  equation  solver  SVDQ.  Certain  constants  associated 
with  Eq.  (28)  are  calculated  also.  The  solid  phase  parameters  at  the  mean  surface 
which  are  needed  for  the  response  function  calculation  are  provided. 
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GLIFP  calculates  the  response  function,  Eq.  (50),  and  the  zero  frequency 
limit,  Eq.  (53).  Using  Eqs.  (29)  - (31),  the  solid  phase  parameters  at  the  mean 
surface  are  converted  to  values  at  the  oscillating  surface.  Necessary  gas  phase 


parameters  derived  from  Eq.  (47)  are  calculated  also. 

OTAOUT  prints  the  input  and  output. 

Auxiliary  JPL  library  routines  which  are  used  to  solve  the  equations  in  the 
melt  layer  are  subroutine  PFIT,  function  SCPVAL  and  subroutine  SVDQ.  These  were 
included  in  the  listing  to  provide  a self-contained  program.  PFIT  and  SCPVAL 
are  ca’led  by  MELTLR  (steady-state  solution);  SVDQ  and  SCPVAL  are  called  by 
MLTLRP  (perturbed,  complex  solution).  PFIT  is  a polynomial  least  squares  curve 
fitting  routine  and  SCPVAL  evaluates  the  polynomial  at  a specified  argument 
Subroutines  BHSLR,  AHLR  and  SL2NRM  are  orthogonal  transformation  subroutines  which 
are  called  by  PFIT  to  solve  the  least  squares  problem.  SVDQ  computes  the  numerical 
solution  of  the  ordinary  differential  equation  describing  the  perturbed  melt 
layer. 
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A-6.  SOLUTIONS  TO  SAMPLE  PROBLEM 


Ik 


NDE<j»  6 ilGFAC*  • OOOO 

P ( 1 ),...,P(  >JJE<i*3  ) • .17*436020  .19*436020  .87S76S67 


- • 1 722*4527  111*45158*7  .00289*470 

-.0003180*1  -.0000076^  .00Q0091S 


roLt-'UNCE  tests  ko.<  a sa r iseactory  steady-state  solution  have  been  met. 


A SATISFACTORY  STEADY-STATE  soljtidn  HAS  BEEN  OBTAINED. 


COMPOSITE  'iOLlD  PHOPFILLaNT  COMdUSTlON  RESPONSE  MODEL 


T A3rV 


r apr 


otapr 


02  T APR 


i r la  i = 

3 H = 

-,3Htt/20-02 

• 

3^372  n 

-.979968-16 

.996635-1 o 

' F L A • j * 

3 H» 

-.388720-02 

• 

39 7 893 *30 

-.996136-16 

.908895-16 

I F L A j a 

3 H = 

-.  398  720-02 

• 

3 1 0 9 7 3 ♦ j 0 

-.510967-16 

.399792-16 

1 F L A j * 

3 H« 

- . 393720-02 

« 

2 7 2 1 09  + 0'J 

-.522927-16 

.259677-16 

IFlAj’ 

3 Ha 

- . 333720-02 

• 

2 3 j 2 1 2 * J 0 

-.530627-16 

.128803-16 

I F L A a 

3 Ha 

-. 383720-02 

• 

1 9 9 3 6 J *Q0 

—.532267—16 

-.53989Q-17 

’ F L A * 

3 H ■ 

-. 388720-02 

• 

155933*00 

-.525615-16 

-.299537-16 

l F L A h * 

3 3 = 

- . 388/20-02 

• 

116616*00 

-.503069-16 

—•615565—16 

! F L A j * 

3 -(« 

- . 389720-02 

• 

77/991-01 

-.976837-16 

-.100239-15 

IFLli* 

3 Ha 

- . 388720-02 

• 

393721-31 

-. 329379-1 6 

199799-15 

I FLA!,  * 

3 9 = 

-.3  88/20-0  2 

• 

1 9 9 355-0 7 

-.363915-16 

- . 192209-1 5 

I F L A :i 3 

9 H • 

-.338720-02 

• 

cooooo 

-.361915-16 

1 92209-1 5 

. 699869- 1 6 


. 1 1 9785- l S 


. i aaoso- 1 s 


,279606-15 


.396577-15 


,596672-15 


.720195-15 


,906191-15 


, 107872-19 


.119919-19 


. 1 22273-1 9 


. 122273-19 


( A 8 R 9 


T .»F  1 


) r ap  i 


126 


02T AP I 


J 


co'pysirt  'SOLI')  (’hop  : l w a ^ r cmuos  r iO"i  nespjnsl  model 


I F L A G 3 J 8*  -,3Ba7*U-Q2 

.388720*00  -.291908-16  .723708-16  256978-17 

I F L A G ■ 3 H a -.38372U-02 

• 389881*00  -.31998.1-16  .718317-16  ,3l775o-16 

If  LAG*  3 H * -.  388720-02 

.310976*00  -.387558-16  .696997-16  .820005-16 

l FLAG3  3 H = -.388720-02 

.272101*00  -.373363-16  .652082-16  ,153267-15 

1 F L A G 3 3 H«  -.  388720-02 

•233232*00  -.397028-16  .578803-16  .251082-15 

I F L A 6 3 3 H»  -.  388720-02 

.198360*00  -.817956-16  .852850-16  ,379782-15 

(FLAG*  3 H»  -.388720-02 

.155883*00  -.832305-16  .275029-16  .580203-15 

1 F L A Ci  * 3 -,38a?2D-02 

•ll661o*00  -.838859-16  .295507-17  ,725921-15 

1 F L AGa  3 H « -.  383720-02 

.777831-01  -.833638-16  -.290331-16  ,918866-15 

(FLAG*  3 Ha  -.388720-02 

.383721-01  -.310955-16  -.681670-16  .108720-18 

I FLAG3  3 Ha  -.38872U-02 

. 1 3835 'i-Q7  -.  379932-1  6 -.  1 12608-1  5 . 1 18857-10 

i F L A G 3 8 Ha  -.388720-02 

.000001  -.379932-16  -.112608-15  .118857-10 

6 T P 0 0 T 3 

K 2 » ( . 0O739036E*U  1 . - . 1 1 5 6 6 9 7 7 C *0  1 1 

V 3 = .3  3O|70O9f>U(j 

V 5 ■ •3tt802307E*iJi 

V 6 A =*  . 1 5 725228':*01 

V 6 8 ■ .I90529/2K*o; 

V 7 « . 20288O02E*OO 

HF  o 3 . *259653 1 f".*0u 
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COMPOSITE  SOLID  PRUI’i-LLaNT  CO  rt  bUST  ION  RESPONSE  model 


K 2 M "1 

a 

.JOOOOOO  0 li  *00 

V S N M 

SI 

. 00000UU0E *00 

l E r.  D 

i INPUT 

C A 

X 

• J2800000E+00 

CH 

n 

. JOOOOOOOt.  -t-uu 

CG 

3 

. ioooooooe+oo 

(C  A 

a 

. 900000UUF-U3 

K.B 

a 

. MHQOOOOOt-03 

HO  A 

a 

. 1 9BOOOOrJr>0  1 

rob 

a 

. VOOOOOOOE*C)0 

* AC 

= 

. 33000000E  + 0CJ  , 

. 5400U000EO0  . 

•ooooooooe*oo , 

.OOUOOOUCE^OO 

SMC  A 

a 

. M50G0J00F-02  . 

. 20000000E-0  l t 

•ooooooooe*oo, 

.(j0O000UCE*00 

c 

a 

. 2200'JOIJOi:  +05 

R 

X 

. i986?OOQL>0  1 

P R X F A C 

3 

. 1 3&0U000L  09 

as 

a 

- . 209S7000F 0 3 

a 3 
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